diff options
| author | Katsumi Yamaoka | 2015-10-21 05:36:51 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2015-10-21 05:36:51 +0000 |
| commit | 8b40f8d9539856700664d395d7331dd9a2f232ed (patch) | |
| tree | 7171c5c40a3960e9dbc968f4acc1ab8fdd1f3527 | |
| parent | 63cfb75f3a9d0f658e099ae18779e305a7e49fee (diff) | |
| download | emacs-8b40f8d9539856700664d395d7331dd9a2f232ed.tar.gz emacs-8b40f8d9539856700664d395d7331dd9a2f232ed.zip | |
lisp/gnus/mailcap.el (mailcap-mailcap-entry-passes-test): Doc fix
| -rw-r--r-- | lisp/gnus/mailcap.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el index a3348c69869..d8881104af8 100644 --- a/lisp/gnus/mailcap.el +++ b/lisp/gnus/mailcap.el | |||
| @@ -556,8 +556,11 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC 1524, plus | |||
| 556 | results))) | 556 | results))) |
| 557 | 557 | ||
| 558 | (defun mailcap-mailcap-entry-passes-test (info) | 558 | (defun mailcap-mailcap-entry-passes-test (info) |
| 559 | "Return non-nil if mailcap entry INFO passes its test clause. | 559 | "Replace the test clause of INFO itself with a boolean for some cases. |
| 560 | Also return non-nil if no test clause is present." | 560 | This function supports only `test -n $DISPLAY' and `test -z $DISPLAY', |
| 561 | replaces them with t or nil. As for others or if INFO has a interactive | ||
| 562 | spec (needsterm, needsterminal, or needsx11) but DISPLAY is not set, | ||
| 563 | the test clause will be unchanged." | ||
| 561 | (let ((test (assq 'test info)) ; The test clause | 564 | (let ((test (assq 'test info)) ; The test clause |
| 562 | status) | 565 | status) |
| 563 | (setq status (and test (split-string (cdr test) " "))) | 566 | (setq status (and test (split-string (cdr test) " "))) |