[Mew-dist 10843] Re: Auto learning when refile

[YAMAGUCHI Shuhei]

>>>>> In [Mew-dist : No.10822] 
>>>>>	Kazu Yamamoto (山本和彦) <kazu at example.com> wrote:

Kazu> > 特に、shortname と refile 先フォルダ名を統一するなんてことをしていると、
Kazu> > 「せっかく情報を一元管理できるようになったのに、勝手に学習される情報に
Kazu> > 邪魔される…」とまで思ってしまいます。 ^^;
Kazu> > 
Kazu> > この自動学習が変数で制御できるようになれば、自動学習の欲しい人も自動学
Kazu> > 習のいらない人も幸せになれるのではないかと思いますが、いかがでしょう?

Kazu> mew-use-auto-alias を用意しました。次から nil に設定して下さい。

ありがとうございます。
b2 (の話ですよね?) が楽しみです。 :-)

そういえば、Mew-Win32 にしか出していないのを思い出しました。

>>>>> In [Mew-Win32 : No.01929] 
>>>>>	SUGIMORI (杉森 隆行) <taro at example.com> wrote:

杉森> 1.  mew-refile-guess-from-me-is-specialに対応したい。
杉森> 2.  +from/.../<shortname>みたいなものも推測してくれたうれしいかも。

に対応したバージョンです。

(defun mew-refile-guess-by-shortname (&optional addr)
  (mew-refile-guess-from-dispatch 'mew-refile-guess-by-shortname-body addr))
(defun mew-refile-guess-by-shortname-body (&optional addr)
  (let* ((pfix (cond ((equal mew-folders-default-folder "" ) "+")
                     ((equal mew-folders-default-folder nil) "+")
                     ((equal mew-folders-default-folder "+") "+")
                     (t (file-name-as-directory mew-folders-default-folder))))
         (from (or addr (mew-header-parse-address mew-from:)))
         shortname-regex)
    (and from
         (setq shortname (mew-addrbook-shortname-get from))
         (setq shortname-regex
               (concat "^" (regexp-quote pfix) "\\(.*/\\)?"
                       (regexp-quote shortname) "/?$"))
         (or (mew-refile-match-in-list shortname-regex mew-folder-list)
             (concat (file-name-as-directory pfix)
                     shortname)))))


でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A