Mercurial > emacs
changeset 19525:59026d8478f7
Require cl only at compile time.
(message-user-agent): Use condition-case, not ignore-errors.
(message-talkative-question): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 25 Aug 1997 04:59:33 +0000 |
| parents | f7cceca576e3 |
| children | bbad6a02f725 |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/message.el Mon Aug 25 04:57:07 1997 +0000 +++ b/lisp/gnus/message.el Mon Aug 25 04:59:33 1997 +0000 @@ -29,7 +29,8 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl)) + (require 'mailheader) (require 'rmail) (require 'nnheader) @@ -583,11 +584,14 @@ :group 'message-sending :type 'sexp) +;; Ignore errors in case this is used in Emacs 19. +;; Don't use ignore-errors because this is copied into loaddefs.el. ;;;###autoload -(ignore-errors - (define-mail-user-agent 'message-user-agent - 'message-mail 'message-send-and-exit - 'message-kill-buffer 'message-send-hook)) +(condition-case nil + (define-mail-user-agent 'message-user-agent + 'message-mail 'message-send-and-exit + 'message-kill-buffer 'message-send-hook) + (error nil)) (defvar message-mh-deletable-headers '(Message-ID Date Lines Sender) "If non-nil, delete the deletable headers before feeding to mh.") @@ -3568,7 +3572,8 @@ ;;; Help stuff. (defun message-talkative-question (ask question show &rest text) - "Call FUNCTION with argument QUESTION, displaying the rest of the arguments in a temporary buffer if SHOW. + "Call FUNCTION with argument QUESTION; optionally display TEXT... args. +If SHOW is non-nil, the arguments TEXT... are displayed in a temp buffer. The following arguments may contain lists of values." (if (and show (setq text (message-flatten-list text)))