From 7a909eef9dc4ac5a4e9bda88f97e1da823fc679a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 6 Jul 2003 14:23:48 +0000 Subject: [PATCH] Synch to Gnus 200307061357. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-sum.el | 5 +++-- lisp/message.el | 2 +- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b2068b8..4bd19ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2003-07-06 Jesper Harder + * message.el (message-send-mail-with-sendmail): Handle + non-numeric return values. + + * gnus-sum.el (gnus-print-buffer): Apply emphasis. + From Michael Piotrowski (tiny change). + * gnus-start.el (gnus-clear-system): Revert change from 2003-06-19. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 31909ba..0865a10 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8652,14 +8652,15 @@ to save in." (progn (copy-to-buffer buffer (point-min) (point-max)) (set-buffer buffer) - (gnus-article-delete-invisible-text) (gnus-remove-text-with-property 'gnus-decoration) (when (gnus-visual-p 'article-highlight 'highlight) ;; Copy-to-buffer doesn't copy overlay. So redo ;; highlight. (let ((gnus-article-buffer buffer)) (gnus-article-highlight-citation t) - (gnus-article-highlight-signature))) + (gnus-article-highlight-signature) + (gnus-article-emphasize) + (gnus-article-delete-invisible-text))) (let ((ps-left-header (list (concat "(" diff --git a/lisp/message.el b/lisp/message.el index e82ca98..3283220 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4154,7 +4154,7 @@ This sub function is for exclusive use of `message-send-mail'." (if resend-to-addresses (list resend-to-addresses) '("-t"))))))) - (unless (or (null cpr) (zerop cpr)) + (unless (or (null cpr) (and (numberp cpr) (zerop cpr))) (error "Sending...failed with exit value %d" cpr))) (when message-interactive (save-excursion -- 1.7.10.4