# HG changeset patch # User Miles Bader # Date 1144797726 0 # Node ID a87e26272828f4acd6bd2191101b7084f79caeff # Parent 7d69833e0c1a638236e032c7579bd44dd0cd4372 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-210 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 81-82) - Update from CVS diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/ChangeLog Tue Apr 11 23:22:06 2006 +0000 @@ -1,3 +1,35 @@ +2006-04-11 Reiner Steib + + * gnus-art.el (gnus-button-valid-localpart-regexp): Exclude `@'. + +2006-04-11 Arne J,Ax(Brgensen + + * gnus-sieve.el (gnus-sieve-generate): Delete from the start of + the sieve region. + +2006-04-11 Reiner Steib + + * gnus.el: Gnus v5.10.8 is released. + +2006-04-11 Lars Magne Ingebrigtsen + + * nnslashdot.el (nnslashdot-retrieve-headers-1): Fix up to new + layout. + + * rfc2047.el (rfc2047-decode-encoded-words): Don't message about + unknown charset. + + * message.el (message-header-synonyms): Add Original-To to the + default. + + * gnus-sum.el (gnus-get-newsgroup-headers-xover): group is an + optional parameter. + +2006-04-07 Reiner Steib + + * pgg-gpg.el: Revert to revision 7.15 to allow the use of + gpg-agent. + 2006-04-06 Reiner Steib * gnus-fun.el (gnus): Require it for gnus-directory. diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/gnus-art.el --- a/lisp/gnus/gnus-art.el Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/gnus-art.el Tue Apr 11 23:22:06 2006 +0000 @@ -5972,7 +5972,7 @@ ;; Regexp suggested by Felix Wiemann in <87oeuomcz9.fsf@news2.ososo.de> (defcustom gnus-button-valid-localpart-regexp - "[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n\t ]*" + "[a-z0-9$%(*-=?[_][^<>\")!;:,{}\n\t @]*" "Regular expression that matches a localpart of mail addresses or MIDs." :version "22.1" :group 'gnus-article-buttons diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/gnus-sieve.el --- a/lisp/gnus/gnus-sieve.el Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/gnus-sieve.el Tue Apr 11 23:22:06 2006 +0000 @@ -107,7 +107,7 @@ (find-file gnus-sieve-file) (goto-char (point-min)) (if (re-search-forward (regexp-quote gnus-sieve-region-start) nil t) - (delete-region (match-end 0) + (delete-region (match-beginning 0) (or (re-search-forward (regexp-quote gnus-sieve-region-end) nil t) (point))) diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/gnus-sum.el --- a/lisp/gnus/gnus-sum.el Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/gnus-sum.el Tue Apr 11 23:22:06 2006 +0000 @@ -5962,7 +5962,8 @@ (allp (cond ((eq gnus-read-all-available-headers t) t) - ((stringp gnus-read-all-available-headers) + ((and (stringp gnus-read-all-available-headers) + group) (string-match gnus-read-all-available-headers group)) (t nil))) diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/message.el --- a/lisp/gnus/message.el Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/message.el Tue Apr 11 23:22:06 2006 +0000 @@ -2749,7 +2749,8 @@ (message-carefully-insert-headers headers))) (defcustom message-header-synonyms - '((To Cc Bcc)) + '((To Cc Bcc) + (Original-To)) "List of lists of header synonyms. E.g., if this list contains a member list with elements `Cc' and `To', then `message-carefully-insert-headers' will not insert a `To' header diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/nnslashdot.el --- a/lisp/gnus/nnslashdot.el Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/nnslashdot.el Tue Apr 11 23:22:06 2006 +0000 @@ -142,7 +142,7 @@ (setq article (if (and article (< start article)) article start)) (goto-char point) (while (re-search-forward - "\\([^<]+\\).*\n.*score:\\([^)]+\\))" + "\\([^<]+\\).*\n.*\n.*score:\\([^)]+\\))" nil t) (setq cid (match-string 1) subject (match-string 2) diff -r 7d69833e0c1a -r a87e26272828 lisp/gnus/rfc2047.el --- a/lisp/gnus/rfc2047.el Tue Apr 11 23:05:31 2006 +0000 +++ b/lisp/gnus/rfc2047.el Tue Apr 11 23:22:06 2006 +0000 @@ -851,11 +851,8 @@ (let (word charset cs encoding text rest) (while words (setq word (pop words)) - (if (and (or (setq cs (rfc2047-charset-to-coding-system - (setq charset (car word)))) - (progn - (message "Unknown charset: %s" charset) - nil)) + (if (and (setq cs (rfc2047-charset-to-coding-system + (setq charset (car word)))) (condition-case code (cond ((char-equal ?B (nth 1 word)) (setq text (base64-decode-string diff -r 7d69833e0c1a -r a87e26272828 man/ChangeLog --- a/man/ChangeLog Tue Apr 11 23:05:31 2006 +0000 +++ b/man/ChangeLog Tue Apr 11 23:22:06 2006 +0000 @@ -1,3 +1,12 @@ +2006-04-11 Reiner Steib + + * gnus.texi, gnus-faq.texi, message.texi: Gnus v5.10.8 is released. + +2006-04-10 Reiner Steib + + * gnus.texi (Misc Group Stuff, Summary Buffer, Article Keymap) + (Server Commands): Key `v' is reserved for users. + 2006-04-11 J.D. Smith * files.texi (Old Versions): Update description of vc-annotate's diff -r 7d69833e0c1a -r a87e26272828 man/gnus-faq.texi --- a/man/gnus-faq.texi Tue Apr 11 23:05:31 2006 +0000 +++ b/man/gnus-faq.texi Tue Apr 11 23:22:06 2006 +0000 @@ -128,7 +128,7 @@ Jingle please: Gnus 5.10 is released, get it while it's hot! As well as the step in version number is rather small, Gnus 5.10 has tons of new features which you -shouldn't miss. The current release (5.10.6) should be at +shouldn't miss. The current release (5.10.8) should be at least as stable as the latest release of the 5.8 series. @node [1.2] diff -r 7d69833e0c1a -r a87e26272828 man/gnus.texi --- a/man/gnus.texi Tue Apr 11 23:05:31 2006 +0000 +++ b/man/gnus.texi Tue Apr 11 23:22:06 2006 +0000 @@ -4043,6 +4043,22 @@ @table @kbd +@item v +@kindex v (Group) +@cindex keys, reserved for users (Group) +The key @kbd{v} is reserved for users. You can bind it key to some +function or better use it as a prefix key. For example: + +@lisp +(define-key gnus-group-mode-map (kbd "v j d") + (lambda () + (interactive) + (gnus-group-jump-to-group "nndraft:drafts"))) +@end lisp + +On keys reserved for users in Emacs and on keybindings in general +@xref{Keymaps, Keymaps, , emacs, The Emacs Editor}. + @item ^ @kindex ^ (Group) @findex gnus-group-enter-server-mode @@ -4438,6 +4454,14 @@ You can have as many summary buffers open as you wish. +@kindex v (Summary) +@cindex keys, reserved for users (Summary) +The key @kbd{v} is reserved for users. You can bind it key to some +function or better use it as a prefix key. For example: +@lisp +(define-key gnus-summary-mode-map (kbd "v -") "LrS") ;; lower subthread +@end lisp + @menu * Summary Buffer Format:: Deciding how the summary buffer is to look. * Summary Maneuvering:: Moving around the summary buffer. @@ -11242,6 +11266,11 @@ buffer displayed while reading. You can do it all from the article buffer. +@kindex v (Article) +@cindex keys, reserved for users (Article) +The key @kbd{v} is reserved for users. You can bind it key to some +function or better use it as a prefix key. + A few additional keystrokes are available: @table @kbd @@ -12272,6 +12301,12 @@ @table @kbd +@item v +@kindex v (Server) +@cindex keys, reserved for users (Server) +The key @kbd{v} is reserved for users. You can bind it key to some +function or better use it as a prefix key. + @item a @kindex a (Server) @findex gnus-server-add-server