[mew-int 00700] Re: ~/.signature

[Tatsuya Kinoshita]

In message [mew-int 00698], on Fri, 25 Jan 2002,
Tatsuya Kinoshita <tats at example.com> wrote:

> ;; mew-draft-insert-signature:
> ;;   C-c C-i    : current case (original)
> ;;   C-c i      : "ja" case
> ;;   C-u C-c i  : input case

I have written a patch for this feature.
(added an argument to mew-draft-insert-signature)

-- 
Tatsuya Kinoshita
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur mew.orig/mew-draft.el mew/mew-draft.el
--- mew.orig/mew-draft.el	Fri Jan 18 17:45:57 2002
+++ mew/mew-draft.el	Sun Jan 27 11:18:12 2002
@@ -666,16 +666,25 @@
 	(message "Draft was killed"))
     (message "Draft was not killed")))
 
-(defun mew-draft-insert-signature ()
+(defun mew-draft-insert-signature (&optional arg)
   "Insert the signature file specified by mew-signature-file.
 If attachments exist and mew-signature-as-lastpart is *non-nil*,
 the file is attached to the last part. Otherwise, the file is 
 inserted into the body. If mew-signature-insert-last is *non-nil*,
 the file is inserted to the end of the body. Otherwise, inserted
-the cursor position."
-  (interactive)
+the cursor position. If excuted with '\\[universal-argument]',
+you can set the case."
+  (interactive "P")
   (let ((sigfile
-	 (expand-file-name (mew-signature-file (mew-tinfo-get-case)))))
+	 (expand-file-name
+	  (mew-signature-file
+	   (cond
+	    ((stringp arg)
+	     arg)
+	    (arg
+	     (mew-input-case (mew-tinfo-get-case) "Signature"))
+	    (t
+	     (mew-tinfo-get-case)))))))
     (if (not (file-exists-p sigfile))
 	(message "No signature file %s" sigfile)
       (if (and (mew-attach-p) mew-signature-as-lastpart)