From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Sat, 31 Mar 2007 13:59:41 +0000 (+0000)
Subject: * nnmail.el (nnmail-spool-file): Mark as obsolete.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=7b2ce0530d0fa33a5678828eb93a0e4834a69ce4

* nnmail.el (nnmail-spool-file): Mark as obsolete.
(nnmail-get-new-mail): Reformat.

* gnus-registry.el (gnus-registry-cache-save): Add FIXME comment.

* gmm-utils.el: Fix Commentary.
(gmm-tool-bar-from-list): Fix typo in doc string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 348356250..a91af9301 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2007-03-31  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* nnmail.el (nnmail-spool-file): Mark as obsolete.
+	(nnmail-get-new-mail): Reformat.
+
+	* gnus-registry.el (gnus-registry-cache-save): Add FIXME comment.
+
+	* gmm-utils.el: Fix Commentary.
+	(gmm-tool-bar-from-list): Fix typo in doc string.
+
 2007-03-27  Thien-Thi Nguyen  <ttn@gnu.org>
 
 	* message.el (message-yank-original): Fix bug:
diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el
index 84b69edb5..9241e96d0 100644
--- a/lisp/gmm-utils.el
+++ b/lisp/gmm-utils.el
@@ -26,7 +26,7 @@
 
 ;; This library provides self-contained utility functions.  The functions are
 ;; used in Gnus, Message and MML, but within this library there are no
-;; dependencies on Gnus, Message, or MML or Gnus.
+;; dependencies on Gnus, Message, or MML.
 
 ;;; Code:
 
@@ -217,7 +217,7 @@ Within each entry of ICON-LIST, the first element is a menu
 command, the second element is an icon file name and the third
 element is a test function.  You can use \\[describe-key]
 <menu-entry> to find out the name of a menu command.  The fourth
-and all following elements are passed a the PROPS argument to the
+and all following elements are passed as the PROPS argument to the
 function `tool-bar-local-item'.
 
 If ZAP-LIST is a list, remove those item from the default
diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index 689729bee..3cfc3d5d4 100644
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -156,6 +156,8 @@ way."
       (gnus-load file)
       (gnus-message 5 "Reading %s...done" file))))
 
+;; FIXME: Get rid of duplicated code, cf. `gnus-save-newsrc-file' in
+;; `gnus-start.el'.  --rsteib
 (defun gnus-registry-cache-save ()
   "Save the registry cache file."
   (interactive)
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 0df256ee3..9f70ae4eb 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -246,6 +246,10 @@ This variable is a list of mail source specifiers.
 This variable is obsolete; `mail-sources' should be used instead."
   :group 'nnmail-files
   :type 'sexp)
+(make-obsolete-variable 'nnmail-spool-file
+			"This option is obsolete in Gnus 5.9.  \
+Use `mail-sources' instead.")
+;; revision 5.29 / p0-85 / Gnus 5.9
 
 (defcustom nnmail-resplit-incoming nil
   "*If non-nil, re-split incoming procmail sorted mail."
@@ -1757,7 +1761,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
 				   &optional group spool-func)
   "Read new incoming mail."
   (let* ((sources (or mail-sources
-		      (if (listp nnmail-spool-file) nnmail-spool-file
+		      (if (listp nnmail-spool-file)
+			  nnmail-spool-file
 			(list nnmail-spool-file))))
 	 fetching-sources
 	 (group-in group)