[Mew-dist 07526] guess signature file

[OBATA Noboru]

小幡です。

先程の定型文の挿入と同じ発想で、mew-refile-guess-by-alist1 を使っ
て署名ファイルも guess するパッチを書きました。既存の仕組みとな
じんでいない気がかなりしますが。

(setq mew-signature-guess-alist
      '(("To:"
         ("mew-dist at example.com" . "~/.signature-mew-dist")
        )))

のように設定して使います。guess できなかったときは今までどおり
mew-signature-file を使います。

# これこそ c-sig を使うべきですが(笑)。みなさんはやはり c-sig を
# お使いですか？

-- 
小幡 昇 (obata at example.com)
-------------- next part --------------
--- mew-draft.el~	Thu Feb 18 00:26:56 1999
+++ mew-draft.el	Thu Feb 18 09:08:59 1999
@@ -980,7 +980,10 @@
 the file is inserted to the end of the body. Otherwise, inserted
 the cursor position."
   (interactive)
-  (let ((sigfile (expand-file-name mew-signature-file)))
+  (let ((sigfile (expand-file-name
+                  (or (car (mew-refile-guess-by-alist1
+                            mew-signature-guess-alist))
+                      mew-signature-file))))
     (if (not (file-exists-p sigfile))
 	(message "No signature file %s" sigfile)
       (if (and (mew-attach-p) mew-signature-as-lastpart)