2001-10-29 Simon Josefsson <jas@extundo.com>

	* mml.el (mml-preview): Bind message-this-is-news if it is
	news. From Jesper Harder <harder@myrealbox.com>.

2001-10-28  Simon Josefsson  <jas@extundo.com>

	* gnus-sum.el (gnus-group-make-articles-read): Inline group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62a74d0..65d36d4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2001-10-29  Simon Josefsson  <jas@extundo.com>
+
+       * mml.el (mml-preview): Bind message-this-is-news if it is
+       news. From Jesper Harder <harder@myrealbox.com>.
+
+2001-10-28  Simon Josefsson  <jas@extundo.com>
+
+       * gnus-sum.el (gnus-group-make-articles-read): Inline group.
+
 2001-10-29  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * smiley-ems.el (smiley-regexp-alist): Add support for sad and

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index ab6a743..92b0866 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5128,7 +5128,7 @@ The resulting hash table is returned, or nil if no Xrefs were found."
             (gnus-info-set-marks ',info ',(gnus-info-marks info) t)
             (gnus-info-set-read ',info ',(gnus-info-read info))
             (gnus-get-unread-articles-in-group ',info (gnus-active ,group))
-            (gnus-request-set-mark group (list (list ',range 'del '(read))))
+            (gnus-request-set-mark ,group (list (list ',range 'del '(read))))
             (gnus-group-update-group ,group t))))
       ;; Add the read articles to the range.
       (gnus-info-set-read info range)

diff --git a/lisp/mml.el b/lisp/mml.el
index fde663e..315aecf 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -887,13 +887,14 @@ TYPE is the MIME type to use."
   "Display current buffer with Gnus, in a new buffer.
 If RAW, don't highlight the article."
   (interactive "P")
-  (let ((buf (current-buffer))
-       (message-options message-options)
-       (message-posting-charset (or (gnus-setup-posting-charset
-                                     (save-restriction
-                                       (message-narrow-to-headers-or-head)
-                                       (message-fetch-field "Newsgroups")))
-                                    message-posting-charset)))
+  (let* ((buf (current-buffer))
+        (message-options message-options)
+        (message-this-is-news (message-news-p))
+        (message-posting-charset (or (gnus-setup-posting-charset
+                                      (save-restriction
+                                        (message-narrow-to-headers-or-head)
+                                        (message-fetch-field "Newsgroups")))
+                                     message-posting-charset)))
     (message-options-set-recipient)
     (switch-to-buffer (generate-new-buffer
                       (concat (if raw "*Raw MIME preview of "