[Mew-dist 14882] Re: config problem

[Tatsuya Kinoshita]

In message "[Mew-dist 14875] Re: config problem (was summary モードでの g)"
Tatsuya Kinoshita <tatsuyak at example.com> wrote:

> 「C-c C-oでのconfig-guess」
> 
> 任意のタイミングでcaseを推測できるよう、C-c C-oでのcaseのデフォル
> ト値を、mew-config-outputではなく、その時点で推測したcaseにしてほ
> しい。

mew-config.elへのパッチを作りました。

C-c C-oなら推測したcaseを、C-u C-c C-oならmew-config-outputをデフォ
ルト値とします。

また、user-full-nameが空の場合に、Fromフィールドのメールアドレス
を「<」と「>」で囲まないよう、修正しました。(conform to RFC 822)

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------
 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute and/or modify it 
 without restriction.  There is NO WARRANTY.

--- mew-1.95b76/mew-config.el	Mon Oct 23 21:02:46 2000
+++ mew-1.95b76-tats20001115/mew-config.el	Wed Nov 15 23:51:36 2000
@@ -98,7 +98,11 @@
 ;; mew-from is really strange to maintain backword compatibility.
 (defun mew-from (&optional case)
   (or (if mew-config-alist
-	  (format "%s <%s>" (mew-name case) (mew-mail-address case)))
+	  (let ((name (mew-name case))
+		(addr (mew-mail-address case)))
+	    (if (string-match "[^ \t]" name)
+		(format "%s <%s>" name addr)
+	      addr)))
       (if (not mew-generate-from-list)
 	  (car mew-from-list))
       mew-from
@@ -251,11 +255,15 @@
 	       (mew-summary-mode-name)))
 	 (setq bufs (cdr bufs)))))))
 
-(defun mew-draft-set-config ()
-  (interactive)
+(defun mew-draft-set-config (&optional arg)
+  (interactive "P")
   (let ((old-config mew-draft-buffer-config))
     (setq mew-draft-buffer-config
-	  (mew-input-config mew-config-output "This draft"))
+	  (mew-input-config
+	   (if arg
+	       mew-config-output
+	     (or (mew-draft-get-config-by-guess) mew-config-output))
+	   "This draft"))
     (mew-draft-mode-name mew-header-message)
     (save-excursion
       (goto-char (point-min))
@@ -284,10 +292,16 @@
 	(if (null mew-header-message) (mew-draft-header-keymap)))
       (save-buffer))))
 
-(defun mew-draft-set-config-by-guess ()
+(defun mew-draft-get-config-by-guess ()
   (let ((cfgs (mew-refile-guess-by-alist1 mew-config-guess-alist)))
     (if cfgs
-	(setq mew-draft-buffer-config (mew-join "," cfgs)))))
+	(mew-join "," cfgs)
+      nil)))
+
+(defun mew-draft-set-config-by-guess ()
+  (let ((cfg (mew-draft-get-config-by-guess)))
+    (if cfg
+	(setq mew-draft-buffer-config cfg))))
 
 (provide 'mew-config)