* registry.el (registry-full): Fix logic.

[gnus] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index 0ef64f2..8b196fa 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1,7 +1,6 @@
 ;;; mml.el --- A package for parsing and validating MML documents
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;;   2007, 2008, 2009, 2010  Free Software Foundation, Inc.
+;; Copyright (C) 1998-2011  Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -1494,12 +1493,11 @@ or the `pop-to-buffer' function."
         (copy-sequence (if (message-news-p)
                            message-required-news-headers
                          message-required-mail-headers)))
-       (if (and (not article-editing)
-                (re-search-forward
-                 (concat "^" (regexp-quote mail-header-separator) "\n")
-                 nil t))
-           (replace-match "\n"))
-       (setq mail-header-separator "")
+       (unless article-editing
+         (if (re-search-forward
+              (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
+             (replace-match "\n"))
+         (setq mail-header-separator ""))
        (message-sort-headers)
        (mml-to-mime))
       (if raw
@@ -1510,7 +1508,8 @@ or the `pop-to-buffer' function."
              (mm-disable-multibyte)
              (insert s)))
        (let ((gnus-newsgroup-charset (car message-posting-charset))
-             gnus-article-prepare-hook gnus-original-article-buffer)
+             gnus-article-prepare-hook gnus-original-article-buffer
+             gnus-displaying-mime)
          (run-hooks 'gnus-article-decode-hook)
          (let ((gnus-newsgroup-name "dummy")
                (gnus-newsrc-hashtb (or gnus-newsrc-hashtb