projects / elisp / gnus.git- / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 573be2a)
pop3-fma.el: Bug fix.
authorichikawa <ichikawa>
Thu, 4 Jun 1998 23:34:10 +0000 (23:34 +0000)
committerichikawa <ichikawa>
Thu, 4 Jun 1998 23:34:10 +0000 (23:34 +0000)
lisp/pop3-fma.el patch | blob | history

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 5569687..280062d 100644 (file)
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -251,7 +251,8 @@ Argument PROMPT ."
 ;;
 ;;
 (defun pop3-fma-message-add-header ()
-  (pop3-fma-add-custom-header "X-Ya-Pop3:" pop3-fma-version))
+  (if (message-mail-p)
+      (pop3-fma-add-custom-header "X-Ya-Pop3:" pop3-fma-version)))
   
 ;;
 ;; Add your custom header.