From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 1 Aug 2001 17:22:51 +0000 (+0000)
Subject: 2001-08-01  Gerd Moellmann  <gerd@gnu.org>
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=a398151bef0d372e38cc4f7f953b859f1b98f2e2;p=gnus

2001-08-01  Gerd Moellmann  <gerd@gnu.org>

	* mm-view.el (autoload): Don't autoload `diff-mode' if it's
	already fboundp.  Add INTERACTIVE arg to autoload form.

2001-08-01 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* nnslashdot.el (nnslashdot-init): Add as gnus buffer.

	* nnmail.el (nnmail-cache-open): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fa50f8a45..5009007bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2001-08-01  Gerd Moellmann  <gerd@gnu.org>
+
+	* mm-view.el (autoload): Don't autoload `diff-mode' if it's 
+	already fboundp.  Add INTERACTIVE arg to autoload form. 
+
+2001-08-01 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnslashdot.el (nnslashdot-init): Add as gnus buffer.
+
+	* nnmail.el (nnmail-cache-open): Ditto.
+
 2001-07-31 21:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-art.el (gnus-button-fetch-group): Fix the regexp.
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index fa7d0b4d1..95b3ce1e4 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -34,7 +34,8 @@
   (autoload 'vcard-parse-string "vcard")
   (autoload 'vcard-format-string "vcard")
   (autoload 'fill-flowed "flow-fill")
-  (autoload 'diff-mode "diff-mode"))
+  (unless (fboundp 'diff-mode)
+    (autoload 'diff-mode "diff-mode" "" t nil)))
 
 ;;;
 ;;; Functions for displaying various formats inline
diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index c92cca140..20bb37068 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -37,7 +37,8 @@
 
 (eval-and-compile
   (autoload 'gnus-error "gnus-util")
-  (autoload 'gnus-buffer-live-p "gnus-util"))
+  (autoload 'gnus-buffer-live-p "gnus-util")
+  (autoload 'gnus-add-buffer "gnus"))
 
 (defgroup nnmail nil
   "Reading mail with Gnus."
@@ -1376,6 +1377,7 @@ See the documentation for the variable `nnmail-split-fancy' for documentation."
       (set-buffer
        (setq nnmail-cache-buffer
 	     (get-buffer-create " *nnmail message-id cache*")))
+      (gnus-add-buffer)
       (when (file-exists-p nnmail-message-id-cache-file)
 	(nnheader-insert-file-contents nnmail-message-id-cache-file))
       (set-buffer-modified-p nil)
diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 641c3b952..5bb4c6f99 100644
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -551,7 +551,8 @@
     (setq nnslashdot-buffer
 	  (save-excursion
 	    (nnheader-set-temp-buffer
-	     (format " *nnslashdot %s*" server))))))
+	     (format " *nnslashdot %s*" server))))
+    (push nnslashdot-buffer gnus-buffers)))
 
 (defun nnslashdot-date-to-date (sdate)
   (condition-case err