Mercurial > emacs

changeset 58959:ec047d4f2cfc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-734 Merge from gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-75 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-76 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-77 Update from CVS 2004-12-13 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-group.el (gnus-group-make-rss-group): Use gnus-group-make-group instead of gnus-group-unsubscribe-group. * lisp/gnus/gnus-start.el (gnus-setup-news): Honor user's setting to gnus-message-archive-method. Suggested by Lute Kamstra <Lute.Kamstra@xs4all.nl>. 2004-12-08 Reiner Steib <Reiner.Steib@gmx.de> * man/gnus-faq.texi ([5.1]): Added missing bracket. * man/gnus.texi (Filtering Spam Using The Spam ELisp Package): Index `spam-initialize'.
author Miles Bader <miles@gnu.org>
date Tue, 14 Dec 2004 07:29:36 +0000
parents ab53c3fb5756
children 22e52a9843e7 fb79180b618d
files lisp/gnus/ChangeLog lisp/gnus/gnus-group.el lisp/gnus/gnus-start.el man/ChangeLog man/gnus-faq.texi
diffstat 5 files changed, 40 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Tue Dec 14 05:36:23 2004 +0000
+++ b/lisp/gnus/ChangeLog	Tue Dec 14 07:29:36 2004 +0000
@@ -2,6 +2,15 @@
 
 	* gnus-art.el (gnus-narrow-to-page): Don't hardcode point-min.
 
+2004-12-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-group.el (gnus-group-make-rss-group): Use
+	gnus-group-make-group instead of gnus-group-unsubscribe-group.
+
+	* gnus-start.el (gnus-setup-news): Honor user's setting to
+	gnus-message-archive-method.  Suggested by Lute Kamstra
+	<Lute.Kamstra@xs4all.nl>.
+
 2004-12-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* message.el (message-forward-make-body-mml): Remove headers
--- a/lisp/gnus/gnus-group.el	Tue Dec 14 05:36:23 2004 +0000
+++ b/lisp/gnus/gnus-group.el	Tue Dec 14 07:29:36 2004 +0000
@@ -2592,8 +2592,7 @@
 	      (href (cdr (assoc 'href feedinfo))))
 	  (push (list title href desc)
 		nnrss-group-alist)
-	  (gnus-group-unsubscribe-group
-	   (concat "nnrss:" title))
+	  (gnus-group-make-group title '(nnrss ""))
 	  (nnrss-save-server-data nil))
       (error "No feeds found for %s" url))))
 
--- a/lisp/gnus/gnus-start.el	Tue Dec 14 05:36:23 2004 +0000
+++ b/lisp/gnus/gnus-start.el	Tue Dec 14 07:29:36 2004 +0000
@@ -952,16 +952,28 @@
     ;; Make sure the archive server is available to all and sundry.
     (when gnus-message-archive-method
       (unless (assoc "archive" gnus-server-alist)
-	(push `("archive"
-		nnfolder
-		"archive"
-		(nnfolder-directory
-		 ,(nnheader-concat message-directory "archive"))
-		(nnfolder-active-file
-		 ,(nnheader-concat message-directory "archive/active"))
-		(nnfolder-get-new-mail nil)
-		(nnfolder-inhibit-expiry t))
-	      gnus-server-alist)))
+	(let ((method (or (and (stringp gnus-message-archive-method)
+			       (gnus-server-to-method
+				gnus-message-archive-method))
+			  gnus-message-archive-method)))
+	  ;; Check whether the archive method is writable.
+	  (unless (or (stringp method)
+		      (memq 'respool (assoc (format "%s" (car method))
+					    gnus-valid-select-methods)))
+	    (setq method "archive")) ;; The default.
+	  (push (if (stringp method)
+		    `("archive"
+		      nnfolder
+		      ,method
+		      (nnfolder-directory
+		       ,(nnheader-concat message-directory method))
+		      (nnfolder-active-file
+		       ,(nnheader-concat message-directory
+					 (concat method "/active")))
+		      (nnfolder-get-new-mail nil)
+		      (nnfolder-inhibit-expiry t))
+		  (cons "archive" method))
+		gnus-server-alist))))
 
     ;; If we don't read the complete active file, we fill in the
     ;; hashtb here.
--- a/man/ChangeLog	Tue Dec 14 05:36:23 2004 +0000
+++ b/man/ChangeLog	Tue Dec 14 07:29:36 2004 +0000
@@ -150,6 +150,13 @@
 	to Alex Ott, Karl Fogel, Stefan Monnier, and David Kastrup for
 	suggestions.
 
+2004-12-08  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* gnus-faq.texi ([5.1]): Added missing bracket.
+
+	* gnus.texi (Filtering Spam Using The Spam ELisp Package): Index
+	`spam-initialize'.
+
 2004-11-22  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* message.texi (Various Message Variables): Mention that all mail
@@ -157,11 +164,6 @@
 
 	* gnus.texi (Splitting Mail): Clarify bogus group.
 
-2004-11-16  Reiner Steib  <Reiner.Steib@gmx.de>
-
-	* gnus.texi (Filtering Spam Using The Spam ELisp Package): Index
-	`spam-initialize'.
-
 2004-11-02  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* emacs-mime.texi (Encoding Customization): Fix
--- a/man/gnus-faq.texi	Tue Dec 14 05:36:23 2004 +0000
+++ b/man/gnus-faq.texi	Tue Dec 14 07:29:36 2004 +0000
@@ -1414,7 +1414,7 @@
  message. For a follow up to a newsgroup, it's
  @samp{f} and @samp{F}
  (analog to @samp{r} and
- @samp{R}.
+ @samp{R}).
  
 
  Enter new headers above the line saying "--text follows