2001-08-01 Gerd Moellmann <gerd@gnu.org>
authorShengHuo ZHU <zsh@cs.rochester.edu>
Wed, 1 Aug 2001 17:22:51 +0000 (17:22 +0000)
committerShengHuo ZHU <zsh@cs.rochester.edu>
Wed, 1 Aug 2001 17:22:51 +0000 (17:22 +0000)
* 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.

lisp/ChangeLog
lisp/mm-view.el
lisp/nnmail.el
lisp/nnslashdot.el

index fa50f8a..5009007 100644 (file)
@@ -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.
index fa7d0b4..95b3ce1 100644 (file)
@@ -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
index c92cca1..20bb370 100644 (file)
@@ -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)
index 641c3b9..5bb4c6f 100644 (file)
     (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