(invisible-region): Don't advise it when noninteractive.

diff --git a/ChangeLog b/ChangeLog
index 8f5f67e..c6fe76b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/message.el (invisible-region): Don't advise it when
+       noninteractive.
+
 2005-01-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/gnus.el (gnus-user-agent): Default to

diff --git a/lisp/message.el b/lisp/message.el
index 3d1188d..2d6a8ae 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3966,24 +3966,25 @@ It should typically alter the sending method in some way or other."
 (put 'message-check 'edebug-form-spec '(form body))
 
 ;; Advise the function `invisible-region'.
-(let (current-load-list)
-  (eval
-   `(defadvice invisible-region (around add-mime-edit-invisible (start end)
-                                       activate)
-      "Advised by T-gnus Message.
+(unless noninteractive
+  (let (current-load-list)
+    (eval
+     `(defadvice invisible-region (around add-mime-edit-invisible (start end)
+                                         activate)
+       "Advised by T-gnus Message.
 Add the text property `mime-edit-invisible' to an invisible text when
 the buffer's major mode is `message-mode'.  The added property will be
 used to distinguish whether the invisible text is a MIME part or not."
-      ,(if (featurep 'xemacs)
-          '(if (eq ?\n (char-after start))
-               (setq start (1+ start)))
-        '(if (eq ?\n (char-after (1- end)))
-             (setq end (1- end))))
-      (setq ad-return-value
-           (if (eq 'message-mode major-mode)
-               (add-text-properties start end
-                                    '(invisible t mime-edit-invisible t))
-             (put-text-property start end 'invisible t))))))
+       ,(if (featurep 'xemacs)
+            '(if (eq ?\n (char-after start))
+                 (setq start (1+ start)))
+          '(if (eq ?\n (char-after (1- end)))
+               (setq end (1- end))))
+       (setq ad-return-value
+             (if (eq 'message-mode major-mode)
+                 (add-text-properties start end
+                                      '(invisible t mime-edit-invisible t))
+               (put-text-property start end 'invisible t)))))))
 
 (defun message-text-with-property (prop &optional start end reverse)
   "Return a list of start and end positions where the text has PROP.