[Mew-dist 09125] Re: b31

[Yoshinari NOMURA]

乃村です。いまちょっと酔ってます。

On Thu, 3 Jun 1999 18:38:20 +0900,
	ayanokoji <cad11870 at example.com> said:

> 私はmew-summary-auto-refileをキーに割り当てて常用していたのですが，
> b31では毎回yes or noを質問されるようになり，不便を感じています。

とりあえず、変数を作りました。デフォルトは confirm しないように
してます。

(defvar mew-refile-auto-refile-confirm nil
  "*If *non-nil*, mew-summary-auto-refile stops to confirm user's will.")

On Thu, 3 Jun 1999 19:34:19 +0900,
	Hideyuki SHIRAI (白井秀行) <shirai at example.com> said:

> mew-refile-guess-by-from とかが、大文字の混じったメールアドレ
> スで効きません。

すみません。多分 mew-refile-guess-by-from だけだと思うのですが。
alist に入れるときに downcase するようにしました。
既に alist の中に入っちゃってるのを救いたい人は、

  (mapcar 
   '(lambda (x) (setcar x (downcase (car x))))
   mew-refile-from-alist)

の直後にカーソルを持って行って、C-xC-e して下さい。

あと、C-uo で report 表示させたときに [end-of-message] が変な
位置にあるバグ取りました。
--
nom # それと typo.

Index: mew-refile.el
===================================================================
RCS file: /u/nom/prj/cvsroot/mew/mew-refile.el,v
retrieving revision 1.5
diff -u -r1.5 mew-refile.el
--- mew-refile.el	1999/06/03 09:31:11	1.5
+++ mew-refile.el	1999/06/03 14:01:12
@@ -67,6 +67,9 @@
   "*If *non-nil*, mew-summary-auto-refile doesn't touch
 any alredy marked message.")
 
+(defvar mew-refile-auto-refile-confirm t
+  "*If *non-nil*, mew-summary-auto-refile stops to confirm user's will.")
+
 (defvar mew-refile-guess-strip-domainpart t
   "*If *non-nil*, mew-refile-guess-by-default strips domainpart of from")
 
@@ -356,7 +359,7 @@
 ;; learn from "From:" field
 ;;
 (defun mew-refile-guess-by-from-learn (chosen info)
-  (let* ((from   (mew-header-parse-address mew-from:))
+  (let* ((from  (downcase (or (mew-header-parse-address mew-from:) "")))
 	 (folder nil)
 	 ;; `my honest opinion' guessed by mew-refile-guess-by-from.
 	 (mho    (nth 1 (assoc 'mew-refile-guess-by-from       info))))
@@ -487,7 +490,7 @@
 marked with 'o', it prints where this message will be refiled. This
 can overlay other marks. When it overlays, the cursor stays on the
 message. If it marks newly, displays the next message. If executed
-with 'C-u', t displays how the refile rules work in Message mode."
+with 'C-u', it displays how the refile rules work in Message mode."
 (interactive "P") (if
 report (mew-summary-refile-report) (mew-summary-refile-body)))
 
@@ -579,6 +582,7 @@
 	    (insert (format "%-32s  " (car (car guess))))
 	    (insert (format "retun: %s\n" (cdr (car guess))))
 	    (setq guess (cdr guess)))))
+      (mew-message-clear-end-of)
       (set-buffer-modified-p nil)
       (mew-pop-to-buffer buf)))))
 
@@ -610,7 +614,7 @@
        (setq msg (format "Refile all non-marked messages? ")))
       (t
        (setq msg (format "Refile all messages except those marked with '%c' and '%c'? " mew-mark-refile mew-mark-delete))))
-     (if (null (yes-or-no-p msg))
+     (if (and mew-refile-auto-refile-confirm (null (yes-or-no-p msg)))
 	 (message "Not refiled.")
        (message "Auto refiling ...")
        (save-window-excursion