summaryrefslogtreecommitdiff
path: root/lisp/mh-e
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2019-10-14 23:52:21 +0200
committerJuanma Barranquero <lekktu@gmail.com>2019-10-14 23:53:16 +0200
commitd4cfe67e8ae4392fc1f01879f6d3a9a8b6947ac1 (patch)
tree55acfca7542deae88ac291b238fef293fc59b619 /lisp/mh-e
parentcb29a3816489a9bb5472bb3dfe4b64687419cb2e (diff)
downloademacs-d4cfe67e8ae4392fc1f01879f6d3a9a8b6947ac1.tar.gz
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.
Diffstat (limited to 'lisp/mh-e')
-rw-r--r--lisp/mh-e/mh-alias.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-alias.el b/lisp/mh-e/mh-alias.el
index 5573f22072e..632280e74d0 100644
--- a/lisp/mh-e/mh-alias.el
+++ b/lisp/mh-e/mh-alias.el
@@ -485,7 +485,8 @@ set `mh-alias-insert-file' or the \"Aliasfile:\" profile component"))
(set-buffer mh-show-buffer))
(let ((from-header (mh-extract-from-header-value)))
(and from-header
- (mh-alias-address-to-alias from-header))))))
+ (mh-alias-address-to-alias from-header)
+ t)))))
(defun mh-alias-add-alias-to-file (alias address &optional file)
"Add ALIAS for ADDRESS in alias FILE without alias check or prompts.