# HG changeset patch # User Miles Bader # Date 1139014703 0 # Node ID 5ea0e0a7dd388b77957af8a3db889d178f391ecc # Parent a2dd626ff2685983f2021d06802999d04a4076da Revision: emacs@sv.gnu.org/emacs--devo--0--patch-42 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 14-17) - Update from CVS - Merge from emacs--devo--0 diff -r a2dd626ff268 -r 5ea0e0a7dd38 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Fri Feb 03 23:28:28 2006 +0000 +++ b/lisp/gnus/ChangeLog Sat Feb 04 00:58:23 2006 +0000 @@ -1,3 +1,24 @@ +2006-02-03 Reiner Steib + + * gnus-util.el (gnus-error): Describe `args'. + +2006-02-03 Andreas Seltenreich + + * nnweb.el (nnweb-request-group): Avoid growing overview files. + +2006-02-03 Katsumi Yamaoka + + * rfc2231.el (rfc2231-parse-string): Add missing semicolons to + segmented lines of parameter value to cope with Thunderbird 1.5 + bug (cf. https://bugzilla.mozilla.org/show_bug.cgi?id=323318). + Suggested by ARISAWA Akihiro . + (rfc2231-encode-string): Don't make lines exceeding 76 column. + +2006-02-01 Max Froumentin (tiny change) + + * mml.el (mml-generate-mime-1): Correct the order of inline signed + parts. + 2006-01-31 Andreas Seltenreich * nnweb.el (nnweb-group-alist): Use defvar instead of defvoo, diff -r a2dd626ff268 -r 5ea0e0a7dd38 lisp/gnus/gnus-util.el --- a/lisp/gnus/gnus-util.el Fri Feb 03 23:28:28 2006 +0000 +++ b/lisp/gnus/gnus-util.el Sat Feb 04 00:58:23 2006 +0000 @@ -497,7 +497,8 @@ (apply 'format args))) (defun gnus-error (level &rest args) - "Beep an error if LEVEL is equal to or less than `gnus-verbose'." + "Beep an error if LEVEL is equal to or less than `gnus-verbose'. +ARGS are passed to `message'." (when (<= (floor level) gnus-verbose) (apply 'message args) (ding) diff -r a2dd626ff268 -r 5ea0e0a7dd38 lisp/gnus/mml.el --- a/lisp/gnus/mml.el Fri Feb 03 23:28:28 2006 +0000 +++ b/lisp/gnus/mml.el Sat Feb 04 00:58:23 2006 +0000 @@ -1,7 +1,7 @@ ;;; mml.el --- A package for parsing and validating MML documents ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005 Free Software Foundation, Inc. +;; 2005, 2006 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; This file is part of GNU Emacs. @@ -578,7 +578,8 @@ ;; Skip `multipart' and attributes. (when (and (consp part) (consp (cdr part))) (insert "\n--" mml-boundary "\n") - (mml-generate-mime-1 part)))) + (mml-generate-mime-1 part) + (goto-char (point-max))))) (insert "\n--" mml-boundary "--\n"))))) (t (error "Invalid element: %S" cont))) diff -r a2dd626ff268 -r 5ea0e0a7dd38 lisp/gnus/nnweb.el --- a/lisp/gnus/nnweb.el Fri Feb 03 23:28:28 2006 +0000 +++ b/lisp/gnus/nnweb.el Sat Feb 04 00:58:23 2006 +0000 @@ -133,7 +133,8 @@ (deffoo nnweb-request-group (group &optional server dont-check) (nnweb-possibly-change-server group server) (unless (or nnweb-ephemeral-p - dont-check) + dont-check + nnweb-articles) (nnweb-read-overview group)) (cond ((not nnweb-articles) diff -r a2dd626ff268 -r 5ea0e0a7dd38 lisp/gnus/rfc2231.el --- a/lisp/gnus/rfc2231.el Fri Feb 03 23:28:28 2006 +0000 +++ b/lisp/gnus/rfc2231.el Sat Feb 04 00:58:23 2006 +0000 @@ -1,7 +1,7 @@ ;;; rfc2231.el --- Functions for decoding rfc2231 headers -;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, -;; 2005 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 2005, +;; 2006 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; This file is part of GNU Emacs. @@ -53,6 +53,10 @@ display-name mailbox c display-string parameters attribute value type subtype number encoded prev-attribute prev-encoded) + ;; Some mailer (e.g. Thunderbird 1.5) doesn't terminate each + ;; line with semicolon when folding a long parameter value. + (while (string-match "\\([^\t\n\r ;]\\)[\t ]*\r?\n[\t ]+" string) + (setq string (replace-match "\\1;\n " nil nil string))) (ietf-drums-init (mail-header-remove-whitespace (mail-header-remove-comments string))) (let ((table (copy-syntax-table ietf-drums-syntax-table))) @@ -191,6 +195,7 @@ (special (ietf-drums-token-to-list "*'%\n\t")) (ascii (ietf-drums-token-to-list ietf-drums-text-token)) (num -1) + (limit (- 74 (length param))) spacep encodep charsetp charset broken) (with-temp-buffer (insert value) @@ -209,24 +214,30 @@ (when charsetp (setq charset (mm-encode-body))) (cond - ((or encodep charsetp) + ((or encodep charsetp + (progn + (end-of-line) + (> (current-column) (if spacep (- limit 2) limit)))) + (setq limit (- limit 6)) (goto-char (point-min)) + (insert (symbol-name (or charset 'us-ascii)) "''") (while (not (eobp)) - (when (> (current-column) 60) - (insert ";\n") - (setq broken t)) (if (or (not (memq (following-char) ascii)) (memq (following-char) control) (memq (following-char) tspecial) (memq (following-char) special) (eq (following-char) ? )) (progn + (when (>= (current-column) (1- limit)) + (insert ";\n") + (setq broken t)) (insert "%" (format "%02x" (following-char))) (delete-char 1)) + (when (> (current-column) limit) + (insert ";\n") + (setq broken t)) (forward-char 1))) (goto-char (point-min)) - (insert (symbol-name (or charset 'us-ascii)) "''") - (goto-char (point-min)) (if (not broken) (insert param "*=") (while (not (eobp)) @@ -235,12 +246,12 @@ (forward-line 1)))) (spacep (goto-char (point-min)) - (insert param "=\"") + (insert "\n " param "=\"") (goto-char (point-max)) (insert "\"")) (t (goto-char (point-min)) - (insert param "="))) + (insert "\n " param "="))) (buffer-string)))) (provide 'rfc2231)