[mew-dist 21733] Re: 那覇空港 SSH 問題

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 21732] Re: 那覇空港 SSH 問題
Message-ID: <20020920.104055.74173366.kazu at example.com>
Date: Fri, 20 Sep 2002 10:40:55 +0900 (JST)

> P.S.
> 
> 関係ないけど、 mew-cache-clean-up (解析したメッセージのキャッシュ)も、
> 何かのキーに割り当てましょうか？


トグル系だとこんなのやってます。

(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (define-key mew-summary-mode-map "\M-C" 'mew-cache-clean-up2)
	    (define-key mew-summary-mode-map "z1" 'mew-cache-clean-up2)
	    (define-key mew-summary-mode-map "z2" 'mew-policy-toggle)
	    (define-key mew-summary-mode-map "z3" 'mew-warning-toggle)))

(defun mew-cache-clean-up2 ()
  "Clean-up mew cache."
  (interactive)
  (mew-cache-clean-up)
  (message "Mew cache clean up...done"))

(defun mew-warning-toggle ()
  "Toggle waring level."
  (interactive)
  (if (= mew-warning-field-level 2)
      (setq mew-warning-field-level 1)
    (setq mew-warning-field-level 2))
  (mew-cache-clean-up)
  (mew-summary-analyze-again)
  (message "Mew warning level %d" mew-warning-field-level))

(defun mew-policy-toggle (&optional arg)
  "Toggle mew policy."
  (interactive "P")
  (if arg
      (setq mew-decode-broken nil
	    mew-use-name-parameter nil)
    (setq mew-decode-broken (not mew-decode-broken))
    (setq mew-use-name-parameter (not mew-use-name-parameter)))
  (mew-cache-clean-up)
  (mew-summary-analyze-again)
  (message "Mew \"%s\" mode" (if mew-decode-broken "TOLERANT" "STRICT")))

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