From 1c0d0116606c7cbeb14876e4dd345045e0bd538b Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 8 Jul 2002 10:59:04 +0000
Subject: [PATCH] Synch with Oort Gnus.

---
 lisp/ChangeLog   |    5 +++++
 lisp/gnus-art.el |    2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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))))
 
 
-- 
1.7.10.4