From: yamaoka <yamaoka>
Date: Mon, 8 Jul 2002 10:59:04 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-00-quimby~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1c0d0116606c7cbeb14876e4dd345045e0bd538b;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b50bb82..ad92912 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-08  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* gnus-art.el (article-unsplit-urls): Only display MIME when this
+	function is called interactively.  From Niklas Morberg.
+
 2002-07-06  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-topic.el (gnus-topic-indent, gnus-topic-unindent): Change
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b93239d..b9b77c7 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2213,7 +2213,7 @@ If READ-CHARSET, ask for a coding system."
       (while (re-search-forward
 	      "^\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
 	(replace-match "\\1\\3" t)))
-    (when gnus-display-mime-function
+    (when (and gnus-display-mime-function (interactive-p))
       (funcall gnus-display-mime-function))))