# HG changeset patch # User Miles Bader # Date 1141640846 0 # Node ID 55d8c694b9cf1f66c092a045f32101adcecbde11 # Parent e12c5c6d04325eb3389a75b7016295f0b6685ba1 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-139 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 49-51) - Merge from emacs--devo--0 - Update from CVS diff -r e12c5c6d0432 -r 55d8c694b9cf etc/GNUS-NEWS --- a/etc/GNUS-NEWS Mon Mar 06 07:57:01 2006 +0000 +++ b/etc/GNUS-NEWS Mon Mar 06 10:27:26 2006 +0000 @@ -355,6 +355,10 @@ On composing messages, it is enabled by `use-hard-newlines'. Decoding format=flowed was present but not documented in earlier versions. +** The option `mm-fill-flowed' can be used to disable treatment of +format=flowed messages. Also, flowed text is disabled when sending +inline PGP signed messages. (New in Gnus 5.10.7) + ** Gnus supports the generation of RFC 2298 Disposition Notification requests. This is invoked with the C-c M-n key binding from message mode. diff -r e12c5c6d0432 -r 55d8c694b9cf lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Mon Mar 06 07:57:01 2006 +0000 +++ b/lisp/gnus/ChangeLog Mon Mar 06 10:27:26 2006 +0000 @@ -1,3 +1,17 @@ +2006-03-06 Katsumi Yamaoka + + * mm-view.el (mm-w3m-cid-retrieve-1): Check carefully whether + handle is multipart when calling it recursively. + (mm-w3m-cid-retrieve): Display warning if retrieving fails. + +2006-03-03 Reiner Steib + + * mm-util.el (mm-with-unibyte-current-buffer): Change "Emacs 23" + to "Emacs 23 (unicode)" in doc string. + + * gnus-sum.el (gnus-summary-set-display-table): Change "Emacs 23" to + "Emacs 23 (unicode)" in comment. + 2006-03-03 Katsumi Yamaoka * mm-decode.el (mm-get-part): Don't use diff -r e12c5c6d0432 -r 55d8c694b9cf lisp/gnus/gnus-sum.el --- a/lisp/gnus/gnus-sum.el Mon Mar 06 07:57:01 2006 +0000 +++ b/lisp/gnus/gnus-sum.el Mon Mar 06 10:27:26 2006 +0000 @@ -3099,7 +3099,7 @@ ;; We keep TAB as well. (aset table ?\t nil) ;; We nix out any glyphs 127 through 255, or 127 through 159 in - ;; Emacs 23, that are not set already. + ;; Emacs 23 (unicode), that are not set already. (let ((i (if (ignore-errors (= (make-char 'latin-iso8859-1 160) 160)) 160 256))) diff -r e12c5c6d0432 -r 55d8c694b9cf lisp/gnus/mm-util.el --- a/lisp/gnus/mm-util.el Mon Mar 06 07:57:01 2006 +0000 +++ b/lisp/gnus/mm-util.el Mon Mar 06 10:27:26 2006 +0000 @@ -802,7 +802,8 @@ worth using this macro in unibyte buffers of course). Use of `(set-buffer-multibyte t)', which is run finally, is generally harmful since it is likely to modify existing data in the buffer. -For instance, it converts \"\\300\\255\" into \"\\255\" in Emacs 23." +For instance, it converts \"\\300\\255\" into \"\\255\" in +Emacs 23 (unicode)." (let ((multibyte (make-symbol "multibyte")) (buffer (make-symbol "buffer"))) `(if mm-emacs-mule diff -r e12c5c6d0432 -r 55d8c694b9cf lisp/gnus/mm-view.el --- a/lisp/gnus/mm-view.el Mon Mar 06 07:57:01 2006 +0000 +++ b/lisp/gnus/mm-view.el Mon Mar 06 10:27:26 2006 +0000 @@ -213,21 +213,25 @@ (defun mm-w3m-cid-retrieve-1 (url handle) (dolist (elem handle) - (when (listp elem) - (if (equal url (mm-handle-id elem)) - (progn - (mm-insert-part elem) - (throw 'found-handle (mm-handle-media-type elem)))) - (if (equal "multipart" (mm-handle-media-supertype elem)) - (mm-w3m-cid-retrieve-1 url elem))))) + (when (consp elem) + (when (equal url (mm-handle-id elem)) + (mm-insert-part elem) + (throw 'found-handle (mm-handle-media-type elem))) + (when (and (stringp (car elem)) + (equal "multipart" (mm-handle-media-supertype elem))) + (mm-w3m-cid-retrieve-1 url elem))))) (defun mm-w3m-cid-retrieve (url &rest args) "Insert a content pointed by URL if it has the cid: scheme." (when (string-match "\\`cid:" url) - (catch 'found-handle - (mm-w3m-cid-retrieve-1 (concat "<" (substring url (match-end 0)) ">") - (with-current-buffer w3m-current-buffer - gnus-article-mime-handles))))) + (or (catch 'found-handle + (mm-w3m-cid-retrieve-1 + (setq url (concat "<" (substring url (match-end 0)) ">")) + (with-current-buffer w3m-current-buffer + gnus-article-mime-handles))) + (prog1 + nil + (message "Failed to find \"Content-ID: %s\"" url))))) (defun mm-inline-text-html-render-with-w3m (handle) "Render a text/html part using emacs-w3m." diff -r e12c5c6d0432 -r 55d8c694b9cf man/ChangeLog --- a/man/ChangeLog Mon Mar 06 07:57:01 2006 +0000 +++ b/man/ChangeLog Mon Mar 06 10:27:26 2006 +0000 @@ -1,3 +1,7 @@ +2006-03-03 Reiner Steib + + * gnus.texi (Oort Gnus): Add `mm-fill-flowed'. + 2006-03-01 Carsten Dominik * org.texi: (Interaction): Added item about `org-mouse.el' by diff -r e12c5c6d0432 -r 55d8c694b9cf man/gnus.texi --- a/man/gnus.texi Mon Mar 06 07:57:01 2006 +0000 +++ b/man/gnus.texi Mon Mar 06 10:27:26 2006 +0000 @@ -26309,6 +26309,11 @@ versions. @item +The option @code{mm-fill-flowed} can be used to disable treatment of +``format=flowed'' messages. Also, flowed text is disabled when sending +inline PGP signed messages. (New in Gnus 5.10.7) + +@item Gnus supports the generation of RFC 2298 Disposition Notification requests. This is invoked with the @kbd{C-c M-n} key binding from message mode.