(article-unsplit-urls): Only display MIME when this

function is called interactively.  From Niklas Morberg.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b50bb82..ad92912 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-08  Kai Gro\e,b_\e(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 3f9e3ca..ed3efa5 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2083,7 +2083,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))))