Mercurial > emacs
diff lisp/gnus/mailcap.el @ 78486:f0a07da7dd45
Replace `iff' in doc-strings and comments.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 08 Aug 2007 07:27:37 +0000 |
parents | 24202b793a08 |
children | 1cb31606209f a3c27999decb 424b655804ca |
line wrap: on
line diff
--- a/lisp/gnus/mailcap.el Wed Aug 08 07:27:21 2007 +0000 +++ b/lisp/gnus/mailcap.el Wed Aug 08 07:27:37 2007 +0000 @@ -538,7 +538,7 @@ results))) (defun mailcap-mailcap-entry-passes-test (info) - "Return non-nil iff mailcap entry INFO passes its test clause. + "Return non-nil if mailcap entry INFO passes its test clause. Also return non-nil if no test clause is present." (let ((test (assq 'test info)) ; The test clause status) @@ -631,7 +631,7 @@ (defvar mailcap-viewer-test-cache nil) (defun mailcap-viewer-passes-test (viewer-info type-info) - "Return non-nil iff viewer specified by VIEWER-INFO passes its test clause. + "Return non-nil if viewer specified by VIEWER-INFO passes its test clause. Also return non-nil if it has no test clause. TYPE-INFO is an argument to supply to the test." (let* ((test-info (assq 'test viewer-info)) @@ -704,7 +704,7 @@ ;;; (defun mailcap-viewer-lessp (x y) - "Return t iff viewer X is more desirable than viewer Y." + "Return t if viewer X is more desirable than viewer Y." (let ((x-wild (string-match "[*?]" (or (cdr-safe (assq 'type x)) ""))) (y-wild (string-match "[*?]" (or (cdr-safe (assq 'type y)) ""))) (x-lisp (not (stringp (or (cdr-safe (assq 'viewer x)) ""))))