[mew-dist 20254] Re: Mew 3.0.53

[Hideyuki SHIRAI ( 白井秀行 )]

From: Tatsuya Kinoshita <tats at example.com> さん曰く
Subject: [mew-dist 20253] Re: Mew 3.0.53
Message-ID: <20020213.212010.21932830.05 at example.com>
Date: Wed, 13 Feb 2002 21:20:10 +0900 (JST)

tats> > すでにご存じかもしれませんが nntp-server は現在の config を無視して常
tats> > に default に行ってしまいます。これは 3.0.52 時も同じでした。
tats> 
tats> POP/NNTPフォルダについて、caseを明示しなかった場合に"default"でな
tats> くmew-case-inputが使われるといいな、という話題なら[mew-dist 20131]
tats> から始まっていて[mew-dist 20148]にパッチがあります。

現在は advice に逃げてしまいました。(軟弱)

(defun mew-folder-case-complement (folder)
  (let (case fld)
    (when (string-match "^\\([-a-zA-Z0-9_][-a-zA-Z0-9_]+\\):\\(.\\)" folder)
      (setq case (mew-match 1 folder))
      (setq fld (substring folder (match-beginning 2))))
    (cond
     ((and fld case)
      ;; "case:folder"
      (cond
       ((or (mew-folder-localp fld) (mew-folder-virtualp fld))
	;; "case:+inbox" => "+inbox"
	fld)
       ((string= mew-case-default case)
	;; "default:$inbox" => "$inbox"
	fld)
       (t folder)))
     ((or (mew-folder-localp folder)
	  (mew-folder-virtualp folder)
	  (null mew-case-input)
	  (string= mew-case-default mew-case-input))
      ;; no case
      folder)
     (t
      ;; "$inbox" => "case:$inbox"
      (concat mew-case-input ":" folder)))))

(defadvice mew-input-folder (after case-comp activate)
  (let ((fld ad-return-value))
    (setq ad-return-value (mew-folder-case-complement fld))))

(defadvice mew-input-folders (after case-comp activate)
   (let ((flds ad-return-value))
     (setq ad-return-value
	   (mapcar 'mew-folder-case-complement flds))))

-- 
白井秀行 (mailto:shirai at example.com)