From caff20e00277bc1defe0d20a8bb30b8f1b457f95 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 28 Jan 2001 23:47:30 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 13 +++++++++++++ lisp/gnus-art.el | 9 ++++++--- lisp/gnus-msg.el | 14 +++++++++++--- 3 files changed, 30 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3db2631..5a518c8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2001-01-27 Karl Kleinpaste + + * gnus-art.el (gnus-article-banner-alist): eGroups new banner. + +2001-01-27 00:00:00 ShengHuo ZHU + + * gnus-msg.el (gnus-msg-mail): Support switch-action. + +2001-01-26 08:00:00 ShengHuo ZHU + + * gnus-art.el (gnus-summary-save-in-pipe): Prompt for saving + command if there is not last-saver. + 2001-01-24 19:00:00 ShengHuo ZHU * nntp.el (nntp-open-connection): 201 is possible. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index c1a9b18..378e831 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -257,7 +257,7 @@ asynchronously. The compressed face will be piped to this command." (defcustom gnus-article-banner-alist nil "Banner alist for stripping. For example, - ((egroups . \"^[ \\t\\n]*-------------------+\\\\( eGroups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))" + ((egroups . \"^[ \\t\\n]*-------------------+\\\\( \\\\(e\\\\|Yahoo! \\\\)Groups Sponsor -+\\\\)?....\\n\\\\(.+\\n\\\\)+\"))" :version "21.1" :type '(repeat (cons symbol regexp)) :group 'gnus-article-washing) @@ -2861,7 +2861,8 @@ The directory to save in defaults to `gnus-article-save-directory'." (cond ((and (eq command 'default) gnus-last-shell-command) gnus-last-shell-command) - (command command) + ((stringp command) + command) (t (read-string (format "Shell command on %s: " @@ -2872,7 +2873,9 @@ The directory to save in defaults to `gnus-article-save-directory'." "this article")) gnus-last-shell-command)))) (when (string-equal command "") - (setq command gnus-last-shell-command)) + (if gnus-last-shell-command + (setq command gnus-last-shell-command) + (error "A command is required."))) (gnus-eval-in-buffer-window gnus-article-buffer (save-restriction (widen) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 90f4fec..8e10970 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -267,13 +267,21 @@ Thank you for your help in stamping out bugs. (if article (number-to-string article) "\"\"") ")\n")))) ;;;###autoload -(defun gnus-msg-mail (&rest args) +(defun gnus-msg-mail (&optional to subject other-headers continue + switch-action yank-action send-actions) "Start editing a mail message to be sent. Like `message-mail', but with Gnus paraphernalia, particularly the Gcc: header for archiving purposes." (interactive) - (gnus-setup-message 'message - (apply 'message-mail args)) + (let ((buf (current-buffer)) + mail-buf) + (gnus-setup-message 'message + (message-mail to subject other-headers continue + nil yank-action send-actions)) + (when switch-action + (setq mail-buf (current-buffer)) + (switch-to-buffer buf) + (apply switch-action mail-buf nil))) ;; COMPOSEFUNC should return t if succeed. Undocumented ??? t) -- 1.7.10.4