[mew-dist 24866] Re: Message numbers in Summary mode of mew-4

[Hideyuki SHIRAI ( 白井秀行 )]

From:  弓岡 也守輝 (YUMIOKA Yasuteru) <te-kun at example.com> さん曰く
Subject: [mew-dist 24865] Re: Message numbers in Summary mode of mew-4
Message-ID: <20040504.083339.104026650.te-kun at example.com>
Date: Tue, 04 May 2004 08:33:39 +0900 (JST)

林> すでに、MLで議論されているかもしれませんが、
林> Mew-4のSummaryモードでMessage numbersを表示させる方法を、どなたか
林> 教えていただけないでしょうか？　基本的には（デフォルトで）、表示
林> させないようになっていて困っています。

弓岡> 番号を知りたいメールの上で、= で、ミニバッファに表示されます。

弓岡> それと、
弓岡> http://www.mew.org/ml/mew-dist-3.1/msg00834.html
弓岡> もご参考に。

ぼくの場合、Mew4 にはみんなより *遅れて* 乗り換えたので、いろい
ろな議論にも乗り遅れてしまったのですが、林さんのいわれているよう
に最初はちょっと困ってしまいました。

# しかし、すぐ、まぁこんなものかと慣れてしまいましたが。:-)

だけど、ローカルはファイル名でどのメール？と飛べた方が便利なので、
そういう関数を作って使っています。

'J' を押すと、'j' と同じインタフェースでファイル名(番号)を入力し
ます。'C-u J' だとフォルダも指定できますが、これ、個人的には 'j'
より使う頻度が高いので、Mew 本体にも取り込んで欲しいかも。

(defun mew-summary-jump-message (&optional msg folder)
  (interactive)
  (let* ((proto (mew-proto-to-go (mew-summary-folder-name 'ext)))
         (case (if (mew-folder-remotep proto)
                   (mew-sinfo-get-case) ;; a remote folder
                 mew-case-input)) ;; a local/virtual folder
         (inbox (mew-proto-inbox-folder proto case))
         pos)
    (when current-prefix-arg
      (setq folder (or folder
                       (mew-input-folder case inbox))))
    (setq msg (or msg
                  (read-from-minibuffer "Message No: ")))
    (when folder
      (mew-summary-visit-folder folder)
      (mew-rendezvous mew-summary-buffer-process))
    (setq pos (point))
    (goto-char (point-min))
    (if (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
        (progn
          (mew-thread-move-cursor)
          (when mew-summary-goto-line-then-display
            (mew-summary-display nil)))
      (goto-char pos)
      (message "No such message %s" msg))))

(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (define-key mew-summary-mode-map "\ej" 'mew-summary-join)
	    (define-key mew-summary-mode-map "J" 'mew-summary-jump-message)))

# めったに使わない join のキーバインドを変えてしまっています。
# mew-summary-multi-msgs() 使うコマンドは "M-" 付きって考えれば、
# "\ej" の方が自然だし。

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