From: ichikawa <ichikawa>
Date: Thu, 4 Jun 1998 23:37:34 +0000 (+0000)
Subject: pop3-fma.el: Bug fix.
X-Git-Tag: ichikawa-199811302358~62
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=845042167cd5fa90f199fb011ed051be52e0c1f4;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.