# HG changeset patch # User Miles Bader # Date 1185858260 0 # Node ID 2a1e82b0831fe12330b7cdb863410f72d0c433ff # Parent c64b46dbbe6b12fcf09a9c5104bdcb005ba4582e Merge from gnus--rel--5.10 Patches applied: * emacs--devo--0 (patch 806, 811-812, 823) - Merge from emacs--rel--22 - Update from CVS * gnus--rel--5.10 (patch 239-241) - Merge from emacs--devo--0 - Update from CVS 2007-07-24 Katsumi Yamaoka * lisp/gnus/gnus-msg.el (gnus-summary-supersede-article) (gnus-summary-resend-message-edit): Add Gcc header. (gnus-summary-resend-bounced-mail): Ditto; search whole body for parent article's Message-ID; refer parent article in summary buffer. * lisp/gnus/message.el (message-bounce): Call mime-to-mml. 2007-07-14 David Kastrup * lisp/gnus/gnus-art.el (gnus-mime-delete-part): Don't go through article-edit finishing actions if we did not edit the article. Revision: emacs@sv.gnu.org/emacs--rel--22--patch-82 diff -r c64b46dbbe6b -r 2a1e82b0831f lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Tue Jul 31 04:20:12 2007 +0000 +++ b/lisp/gnus/ChangeLog Tue Jul 31 05:04:20 2007 +0000 @@ -2,6 +2,15 @@ * Relicense all FSF files to GPLv3 or later. +2007-07-24 Katsumi Yamaoka + + * gnus-msg.el (gnus-summary-supersede-article) + (gnus-summary-resend-message-edit): Add Gcc header. + (gnus-summary-resend-bounced-mail): Ditto; search whole body for parent + article's Message-ID; refer parent article in summary buffer. + + * message.el (message-bounce): Call mime-to-mml. + 2007-07-21 Reiner Steib * mm-uu.el (mm-uu-type-alist): Refer to mm-uu-configure-list in doc @@ -11,6 +20,11 @@ * gnus-srvr.el (gnus-server-font-lock-keywords): Quote faces. +2007-07-14 David Kastrup + + * gnus-art.el (gnus-mime-delete-part): Don't go through article-edit + finishing actions if we did not edit the article. + 2007-07-13 Katsumi Yamaoka * gnus-srvr.el (gnus-server-agent-face, gnus-server-opened-face) diff -r c64b46dbbe6b -r 2a1e82b0831f lisp/gnus/gnus-art.el --- a/lisp/gnus/gnus-art.el Tue Jul 31 04:20:12 2007 +0000 +++ b/lisp/gnus/gnus-art.el Tue Jul 31 05:04:20 2007 +0000 @@ -4408,11 +4408,11 @@ (gnus-summary-edit-article-done ,(or (mail-header-references gnus-current-headers) "") ,(gnus-group-read-only-p) - ,gnus-summary-buffer no-highlight))))) - ;; Not in `gnus-mime-save-part-and-strip': - (gnus-article-edit-done) - (gnus-summary-expand-window) - (gnus-summary-show-article)) + ,gnus-summary-buffer no-highlight)))) + ;; Not in `gnus-mime-save-part-and-strip': + (gnus-article-edit-done) + (gnus-summary-expand-window) + (gnus-summary-show-article))) (defun gnus-mime-save-part () "Save the MIME part under point." diff -r c64b46dbbe6b -r 2a1e82b0831f lisp/gnus/gnus-msg.el --- a/lisp/gnus/gnus-msg.el Tue Jul 31 04:20:12 2007 +0000 +++ b/lisp/gnus/gnus-msg.el Tue Jul 31 05:04:20 2007 +0000 @@ -815,7 +815,10 @@ (set-buffer ,gnus-summary-buffer) (gnus-cache-possibly-remove-article ,article nil nil nil t) (gnus-summary-mark-as-read ,article gnus-canceled-mark))))) - message-send-actions)))) + message-send-actions) + ;; Add Gcc header. + (gnus-inews-insert-archive-gcc) + (gnus-inews-insert-gcc)))) @@ -1280,10 +1283,13 @@ (message-narrow-to-head-1) ;; Gnus will generate a new one when sending. (message-remove-header "Message-ID") + ;; Remove unwanted headers. (message-remove-header message-ignored-resent-headers t) - ;; Remove unwanted headers. (goto-char (point-max)) (insert mail-header-separator) + ;; Add Gcc header. + (gnus-inews-insert-archive-gcc) + (gnus-inews-insert-gcc) (goto-char (point-min)) (when (re-search-forward "^To:\\|^Newsgroups:" nil 'move) (forward-char 1)) @@ -1557,15 +1563,29 @@ this is a reply." (interactive "P") (gnus-summary-select-article t) - (set-buffer gnus-original-article-buffer) - (gnus-setup-message 'compose-bounce - (let* ((references (mail-fetch-field "references")) - (parent (and references (gnus-parent-id references)))) + (let (summary-buffer parent) + (if fetch + (progn + (setq summary-buffer (current-buffer)) + (set-buffer gnus-original-article-buffer) + (article-goto-body) + (when (re-search-forward "^References:\n?" nil t) + (while (memq (char-after) '(?\t ? )) + (forward-line 1)) + (skip-chars-backward "\t\n ") + (setq parent + (gnus-parent-id (buffer-substring (match-end 0) (point)))))) + (set-buffer gnus-original-article-buffer)) + (gnus-setup-message 'compose-bounce (message-bounce) + ;; Add Gcc header. + (gnus-inews-insert-archive-gcc) + (gnus-inews-insert-gcc) ;; If there are references, we fetch the article we answered to. - (and fetch parent - (gnus-summary-refer-article parent) - (gnus-summary-show-all-headers))))) + (when parent + (with-current-buffer summary-buffer + (gnus-summary-refer-article parent) + (gnus-summary-show-all-headers)))))) ;;; Gcc handling. diff -r c64b46dbbe6b -r 2a1e82b0831f lisp/gnus/message.el --- a/lisp/gnus/message.el Tue Jul 31 04:20:12 2007 +0000 +++ b/lisp/gnus/message.el Tue Jul 31 05:04:20 2007 +0000 @@ -6697,7 +6697,7 @@ (goto-char boundary) (when (re-search-backward "^.?From .*\n" nil t) (delete-region (match-beginning 0) (match-end 0))))) - (mm-enable-multibyte) + (mime-to-mml) (save-restriction (message-narrow-to-head-1) (message-remove-header message-ignored-bounced-headers t) diff -r c64b46dbbe6b -r 2a1e82b0831f man/emacs-mime.texi --- a/man/emacs-mime.texi Tue Jul 31 04:20:12 2007 +0000 +++ b/man/emacs-mime.texi Tue Jul 31 05:04:20 2007 +0000 @@ -32,6 +32,7 @@ @end quotation @end copying +@c Node ``Interface Functions'' uses Latin-1 characters @documentencoding ISO-8859-1 @dircategory Emacs