changeset 69944:a87e26272828

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
author Miles Bader <miles@gnu.org>
date Tue, 11 Apr 2006 23:22:06 +0000
parents 7d69833e0c1a
children 87cbb18a44b0
files lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/gnus-sieve.el lisp/gnus/gnus-sum.el lisp/gnus/message.el lisp/gnus/nnslashdot.el lisp/gnus/rfc2047.el man/ChangeLog man/gnus-faq.texi man/gnus.texi
diffstat 10 files changed, 86 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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  <Reiner.Steib@gmx.de>
+
+	* gnus-art.el (gnus-button-valid-localpart-regexp): Exclude `@'.
+
+2006-04-11  Arne J,Ax(Brgensen  <arne@arnested.dk>
+
+	* gnus-sieve.el (gnus-sieve-generate): Delete from the start of
+	the sieve region.
+
+2006-04-11  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus.el: Gnus v5.10.8 is released.
+
+2006-04-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* 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  <Reiner.Steib@gmx.de>
+
+	* pgg-gpg.el: Revert to revision 7.15 to allow the use of
+	gpg-agent.
+
 2006-04-06  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* gnus-fun.el (gnus): Require it for gnus-directory.
--- 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
--- 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)))
--- 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)))
--- 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
--- 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
-		  "<a name=\"\\([0-9]+\\)\">\\([^<]+\\)</a>.*\n.*score:\\([^)]+\\))"
+		  "<a name=\"\\([0-9]+\\)\">\\([^<]+\\)</a>.*\n.*\n.*score:\\([^)]+\\))"
 		  nil t)
 	    (setq cid (match-string 1)
 		  subject (match-string 2)
--- 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
--- 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  <Reiner.Steib@gmx.de>
+
+	* gnus.texi, gnus-faq.texi, message.texi: Gnus v5.10.8 is released.
+
+2006-04-10  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus.texi (Misc Group Stuff, Summary Buffer, Article Keymap)
+	(Server Commands): Key `v' is reserved for users.
+
 2006-04-11  J.D. Smith  <jdsmith@as.arizona.edu>
 
 	* files.texi (Old Versions): Update description of vc-annotate's
--- 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]
--- 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