[Mew-dist 10324] playing w/ mew-refile-guess-*

[sen_ml at example.com]

refile まわりのコードでちょっと遊んでいたら、以下の様なものが
できました。

;;
;; by mailing-list (header) returns: guess1 or nil
;;
;; based on `mew-refile-guess-by-folder'
(defun mew-refile-guess-by-mailing-list ()
  ;; typical example:
  ;; Mailing-List: contact freshmeat-news-help at example.com; run by ezmlm
  ;;
  ;; should try to extract address and then guess an address from the result
  (let ((mailing-list (mew-header-get-value "Mailing-List:"))
	ent ret ml-name)
    (if mailing-list
	(progn
	  (string-match "\\([^ ]+\\)-help\\(@[^;]+\\);" mailing-list)
	  (setq ml-name (mew-addrstr-extract-user
			 (concat (match-string 1 mailing-list)
				 (match-string 2 mailing-list))))
	  (setq ent (mew-assoc-case-equal ml-name mew-folder-alist 1))
	  (if ent (setq ret (cons (nth 0 ent) ret)))))
    ret))

＃ でも、ezmlm のリストじゃないと使えないと思う、のでつまらないかも。

`mew-refile-guess-by-x-ml-name' というのも作りかけたのですが、
X-ML-Name: のヘッダの値は、Mew-dist のリストからの場合は訳に
たちましたが、wl と tm-ja のリストからのメッセージだと folder 名を
わりだすのが面倒だったのでやめました。

あと、mew-refile-guess-key-list に X-Mailing-List: と List-Id: を
追加してみたらちょっと便利になった様な気がしました。

なんで似た様なヘッダがこんなにあるのだろう...

  X-ML-Name
  Mailing-List
  X-Mailing-List
  List-Id

:-( 
 
＃ C-uo っていいですね :-)