From: yamaoka <yamaoka>
Date: Mon, 16 Feb 2004 00:34:03 +0000 (+0000)
Subject: Synch to No Gnus 200402152127.
X-Git-Tag: t-gnus-6_17_4-quimby-~1069
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7ae947a029e6368025e0f34643206ed0e7c8f810;p=elisp%2Fgnus.git-

Synch to No Gnus 200402152127.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4beea1a..899ec20 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-02-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* mm-view.el (mm-inline-image-emacs): Don't insert blank lines
+	after images.
+
+	* gnus-art.el (gnus-mime-display-single): Remove dead code.
+
 2004-02-14  Jesper Harder  <harder@ifa.au.dk>
 
 	* nnrss.el (nnrss-request-article, nnrss-find-el): Cleanup.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index dd216e9..83d76d5 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5058,11 +5058,9 @@ If displaying \"text/html\" is discouraged \(see
 	  (push (cons id handle) gnus-article-mime-handle-alist)
 	  (when (or (not display)
 		    (not (gnus-unbuttonized-mime-type-p type)))
-	    ;(gnus-article-insert-newline)
 	    (gnus-insert-mime-button
 	     handle id (list (or display (and not-attachment text))))
 	    (gnus-article-insert-newline)
-	    ;(gnus-article-insert-newline)
 	    ;; Remember modify the number of forward lines.
 	    (setq move t))
 	  (setq beg (point))
diff --git a/lisp/mm-view.el b/lisp/mm-view.el
index 95b41f2..add8fab 100644
--- a/lisp/mm-view.el
+++ b/lisp/mm-view.el
@@ -1,5 +1,6 @@
 ;;; mm-view.el --- functions for viewing MIME objects
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003,
+;; 2004 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -79,7 +80,6 @@
   (let ((b (point-marker))
 	buffer-read-only)
     (put-image (mm-get-image handle) b)
-    (insert "\n\n")
     (mm-handle-set-undisplayer
      handle
      `(lambda ()
diff --git a/lisp/mml.el b/lisp/mml.el
index 157ea0e..477e6e3 100644
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -549,7 +549,8 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 	    (message-options-set 'message-sender sender))
 	  (if (setq recipients (cdr (assq 'recipients cont)))
 	      (message-options-set 'message-recipients recipients))
-	  (let ((style (mml-signencrypt-style (first (or sign-item encrypt-item)))))
+	  (let ((style (mml-signencrypt-style
+			(first (or sign-item encrypt-item)))))
 	    ;; check if: we're both signing & encrypting, both methods
 	    ;; are the same (why would they be different?!), and that
 	    ;; the signencrypt style allows for combined operation.