From d4cfe67e8ae4392fc1f01879f6d3a9a8b6947ac1 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 14 Oct 2019 23:52:21 +0200 Subject: lisp/*.el: Force non-nil result to t, to match docstring * lisp/ido.el (ido-ignore-item-p): * lisp/simple.el (use-region-p): * lisp/whitespace.el (whitespace-style-face-p) (whitespace-style-mark-p): * lisp/calendar/cal-islam.el (calendar-islamic-leap-year-p): * lisp/mail/rmail.el (rmail-is-text-p): * lisp/mh-e/mh-alias.el (mh-alias-for-from-p): * lisp/net/imap.el (imap-message-flag-permanent-p): * lisp/progmodes/tcl.el (tcl-real-comment-p): * lisp/textmodes/table.el (table--point-in-cell-p): Normalize boolean result. --- lisp/net/imap.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/net/imap.el') diff --git a/lisp/net/imap.el b/lisp/net/imap.el index 9f43c57ffd3..eb963094212 100644 --- a/lisp/net/imap.el +++ b/lisp/net/imap.el @@ -1672,8 +1672,9 @@ non-nil, return these properties." "Return t if FLAG can be permanently saved on articles. MAILBOX specifies a mailbox on the server in BUFFER." (with-current-buffer (or buffer (current-buffer)) - (or (member "\\*" (imap-mailbox-get 'permanentflags mailbox)) - (member flag (imap-mailbox-get 'permanentflags mailbox))))) + (and (or (member "\\*" (imap-mailbox-get 'permanentflags mailbox)) + (member flag (imap-mailbox-get 'permanentflags mailbox))) + t))) (defun imap-message-flags-set (articles flags &optional silent buffer) (when (and articles flags) -- cgit v1.2.3