From: ichikawa <ichikawa>
Date: Thu, 4 Jun 1998 23:34:10 +0000 (+0000)
Subject: pop3-fma.el: Bug fix.
X-Git-Tag: for-semi-1_5-199811302358~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3a28ad32a52811883f532e2c5e00841a61265fd9;p=elisp%2Fgnus.git-

pop3-fma.el: Bug fix.
---

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 5569687..280062d 100644
--- 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.