(mm-inline-message): Bind

gnus-original-article-buffer to the buffer in the mml handle
holding the message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77b377d..38b70ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-20  Jesper Harder  <harder@ifa.au.dk>
+
+       * mm-view.el (mm-inline-message): Bind
+       gnus-original-article-buffer to the buffer in the mml handle
+       holding the message.
+
 2003-06-20  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * message.el (sender, from): No need to bind them.

diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 9de2f94..cea0886 100644 (file)
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -439,7 +439,8 @@ map.")))
              gnus-article-prepare-hook
              (gnus-newsgroup-charset
               (or charset gnus-newsgroup-charset)))
-         (run-hooks 'gnus-article-decode-hook)
+         (let ((gnus-original-article-buffer (mm-handle-buffer handle)))
+           (run-hooks 'gnus-article-decode-hook))
          (gnus-article-prepare-display)
          (setq handles gnus-article-mime-handles))
        (goto-char (point-min))