lisp/message.el: Add message-save-drafts function to save drafts in network code...

diff --git a/ChangeLog b/ChangeLog
index 34f46a0..a8d4b22 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1998-10-26  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/message.el (message-save-drafts): New function.
+       To save drafts in network code.
+       (message-save-buffer): New variable.
+
+       * lisp/pop3-fma.el: Require `mel-b-el' if `mel-b' does not exist.
+
 1998-10-23  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * lisp/gnus-msg.el (gnus-message-make-user-agent): New function.

diff --git a/lisp/message.el b/lisp/message.el
index 3d7ef16..bc367d3 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4343,6 +4343,21 @@ regexp varstr."
       (setq idx (1+ idx)))
     string))
 
+(defvar message-save-buffer " *encoding")
+(defun message-save-drafts ()
+  (interactive)
+  (if (not (get-buffer message-save-buffer))
+      (get-buffer-create message-save-buffer))
+  (let ((filename buffer-file-name)
+       (buffer (current-buffer)))
+    (set-buffer message-save-buffer)
+    (erase-buffer)
+    (insert-buffer buffer)
+    (mime-edit-translate-buffer)
+    (write-region (point-min) (point-max) filename)
+    (set-buffer buffer)
+    (set-buffer-modified-p nil)))
+
 (run-hooks 'message-load-hook)
 
 (provide 'message)

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 964db97..77d8b15 100644 (file)
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -3,7 +3,7 @@
 ;;                                                           Yasuo Okabe
 ;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
 ;;         Yasuo OKABE <okabe@kuis.kyoto-u.ac.jp>
-;; Version: 1.13
+;; Version: 1.14
 ;; Keywords: mail , gnus , pop3
 ;;
 ;; SPECIAL THANKS
@@ -80,7 +80,9 @@
 
 (unless (and (fboundp 'pop3-fma-encode-string)
             (fboundp 'pop3-fma-decode-string))
-  (require 'mel-b)
+  (condition-case nil
+      (require 'mel-b-el)
+    (error (require 'mel-b)))
   (fset 'pop3-fma-encode-string 'base64-encode-string)
   (fset 'pop3-fma-decode-string 'base64-decode-string))
 
@@ -90,7 +92,7 @@
   :group 'mail
   :group 'news)
 
-(defconst pop3-fma-version-number "1.13")
+(defconst pop3-fma-version-number "1.14")
 (defconst pop3-fma-codename
 ;;  "Feel the wind"            ; 0.10
 ;;  "My home town"             ; 0.11
@@ -102,7 +104,8 @@
 ;;  "Blood line"               ; 1.10
 ;;  "Star ring"                        ; 1.11
 ;;  "Goodbye Game"             ; 1.12
-  "Love is Gamble"             ; 1.13
+;;  "Love is Gamble"           ; 1.13
+  "Lonely"                     ; 1.14
   )
 (defconst pop3-fma-version (format "Multiple POP3 account utiliy for Gnus v%s - \"%s\""
                                       pop3-fma-version-number