2001-07-22 09:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-msg.el (gnus-setup-message): make-local-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83b45ad..101bf3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-22 09:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-setup-message): make-local-hook.
+
 2001-07-22  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * gnus-delay.el (gnus-delay-article): Fix `read-string' for
@@ -23,7 +27,6 @@
        (article-de-base64-unreadable, article-wash-html): 
        (gnus-mime-inline-part, gnus-mime-view-part-as-charset): Ditto.
 
-
 2001-07-21  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * nnml.el (nnml-request-post): New function.  Can be used for

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1445af0..7559163 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3351,10 +3351,12 @@ If ALL-HEADERS is non-nil, no headers are hidden."
             (insert-buffer gnus-original-article-buffer)
             (mime-to-mml gnus-article-mime-handles)
             (setq gnus-article-mime-handles nil)
-            (make-local-hook 'kill-buffer-hook)
             (let ((mbl1 mml-buffer-list))
               (setq mml-buffer-list mbl)
               (set (make-local-variable 'mml-buffer-list) mbl1))
+             ;; LOCAL argument of add-hook differs between GNU Emacs
+             ;; and XEmacs. make-local-hook makes sure they are local.
+            (make-local-hook 'kill-buffer-hook)
             (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))
        `(lambda (no-highlight)
          (let ((mail-parse-charset (or gnus-article-charset

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 33b101b..1356ad0 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -246,6 +246,10 @@ Thank you for your help in stamping out bugs.
             (let ((mbl1 mml-buffer-list))
               (setq mml-buffer-list mbl)  ;; Global value
               (set (make-local-variable 'mml-buffer-list) mbl1);; Local value
+               ;; LOCAL argument of add-hook differs between GNU Emacs
+               ;; and XEmacs. make-local-hook makes sure they are local.
+               (make-local-hook 'kill-buffer-hook)
+               (make-local-hook 'change-major-mode-hook)
               (add-hook 'change-major-mode-hook 'mml-destroy-buffers nil t)
               (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t))
           (mml-destroy-buffers)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e7e1b6a..91a98b9 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8283,10 +8283,10 @@ groups."
              (let ((mbl mml-buffer-list))
                (setq mml-buffer-list nil)
                (mime-to-mml ,'current-handles)
-               (make-local-hook 'kill-buffer-hook)
                (let ((mbl1 mml-buffer-list))
                  (setq mml-buffer-list mbl)
                  (set (make-local-variable 'mml-buffer-list) mbl1))
+               (make-local-hook 'kill-buffer-hook)
                (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t))))
         `(lambda (no-highlight)
            (let ((mail-parse-charset ',gnus-newsgroup-charset)