From 66badbfaf76eab3b7d749d8af8d325522e5555c0 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 8 Nov 2000 11:43:35 +0000 Subject: [PATCH] 2000-11-08 TAKAHASHI Kaoru * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): New function. * wl-summary.el (wl-summary-write-current-folder-functions): Change default value. Use it. --- wl/ChangeLog | 7 +++++++ wl/wl-folder.el | 16 ++++++++++++++++ wl/wl-summary.el | 4 ++-- 3 files changed, 25 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 3c0055f..91fd097 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,10 @@ +2000-11-08 TAKAHASHI Kaoru + + * wl-folder.el (wl-folder-guess-mailing-list-by-folder-name): New + function. + * wl-summary.el (wl-summary-write-current-folder-functions): + Change default value. Use it. + 2000-11-08 Yuuichi Teranishi * Version number is increased to 2.5.0. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 90c7f7f..8a11d7b 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2047,6 +2047,22 @@ Don't care multi." nil nil) nil)))) +(defun wl-folder-guess-mailing-list-by-folder-name (folder) + "Return ML address guess by FOLDER name's last hierarchy. +Use `wl-subscribed-mailing-list'. Don't care multi." + (setq folder (car (elmo-folder-get-primitive-folder-list folder))) + (when (memq (elmo-folder-get-type folder) + '(localdir imap4 maildir)) + (let (key mladdress) + (when (string-match "[^\\./]+$" folder) + (setq key (concat "^" (substring folder (match-beginning 0)) "@")) + (setq mladdress + (elmo-string-matched-member + key wl-subscribed-mailing-list 'case-ignore)) + (if (stringp mladdress) + (list mladdress nil nil) + nil))))) + (defun wl-folder-update-diff-line (diffs) (let ((inhibit-read-only t) (buffer-read-only nil) diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 729cb7f..33ca8c1 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -5119,8 +5119,8 @@ Reply to author if invoked with ARG." (defvar wl-summary-write-current-folder-functions '(wl-folder-get-newsgroups -;;; wl-folder-guess-mailing-list-by-refile-rule - ) + wl-folder-guess-mailing-list-by-refile-rule + wl-folder-guess-mailing-list-by-folder-name) "Newsgroups or Mailing List address guess functions list. Call from `wl-summary-write-current-folder'") -- 1.7.10.4