HIE no Murmur

# [xyzzy] [KaMailV3] 乗り換え準備中

試用のつもりで，ここ１ヶ月半ほど使ってみているうちに，もう手放せない状態に。readme.html によると，まだ実験段階とのことなので，あまり手を加えるべきではないと思いつつ，抑えきれないこの気持ち。

V3 では，本当に必要な機能のみに絞って実装するとのことなので，欲しいものは自分で作ってみることに。site-lisp/kamail3-plus.l を作成し，~/.kamail3/config.l からロードする。モノによっては，標準の関数を上書きしてしまっていたりなのです。ということで，祟りがないことを祈るばかり。

とりあえず，config.l のサンプルにない変数で設定をしているあたり。

 ;;; edit-mode のメジャーモードは email-mode で
 (setq *edit-major-mode* 'email-mode)
 
 ;;; セパレータ文字列
 (setq *draft-line-string* "=")
 
 ;;; 返信/転送時の表示ヘッダ
 (setq *draft-header-field-list-quote*
   '("subject" "from" "date" "message-id"))
 
 ;;; Message バッファに Bcc ヘッダも表示
 (setq *message-header-field-list*
   '("date"
     "from"
     "subject"
     "to"
     "cc"
     "bcc"
     "reply-to"
     "x-mailer"
     "user-agent"))
 
 ;;; 添付ファイルの保存フォルダ
 (setq *message-attachment-directory*
       (merge-pathnames "kamail3" (map-backslash-to-slash (get-special-folder-location :personal))))

# [xyzzy] [KaMailV3] Draft バッファ削除時に問い合わせ

何度か編集途中の Draft バッファを削除してしまい，悲しい目にあっているので。

 (defun draft-close-if ()
   (interactive)
   (when (yes-or-no-p "Draft を閉じますよー。")
     (draft-close)))
 (define-key *draft-map* #\q 'draft-close-if)

※少々まぎらわしい表現であったのを，修正。（2006-06-12）

# [xyzzy] [KaMailV3] アドレス補完計画（キーワードファイル版）

KaMail で使っていたアドレスファイルを，KaMailV3 でも使えるように。Draft バッファのヘッダ行で k すると，ミニバッファで補完が効きます。

 ;;; アドレスファイル (~/etc/ADDRESS)
 (defvar *kamail3-keyword-file* "ADDRESS")
 
 (defvar *kamail3-keyword-hash-table* nil)
 (defvar *kamail3-keyword-completion-list* nil)
 
 ;;; 起動時設定
 (defun kamail3-keyword-init-address-complete ()
   (and *kamail3-keyword-file*
        (null *kamail3-keyword-hash-table*)
        (setq *kamail3-keyword-hash-table*
              (load-keyword-file *kamail3-keyword-file* t)))
   (when *kamail3-keyword-hash-table*
     (make-local-variable 'keyword-hash-table)
     (setq keyword-hash-table *kamail3-keyword-hash-table*)))
 
 (add-hook '*kamail3-start-hook* 'kamail3-keyword-init-address-complete)
 
 ;;; キーワードリストからアドレス補完入力
 (defun kamail3-keyword-address-complete-read (field)
   (interactive)
   (let ((field (or field (completing-read  "header: " '("to" "cc" "bcc") :must-match t))))
     (or *kamail3-keyword-completion-list*
         (setq *kamail3-keyword-completion-list*
               (make-list-from-keyword-table *kamail3-keyword-hash-table*))
         (return-from kamail3-keyword-address-complete-read nil))
     (let (adr)
       (message "キーワードファイルからアドレスを補完(TAB)します。")
       (setq adr (completing-read (format nil "Address Keyword (~A): " (string-capitalize field))
                                  *kamail3-keyword-completion-list*))
       (draft-add-header-addr field adr))))
 
 ;;; カーソル位置によりヘッダを判定しアドレス補完入力
 (defun kamail3-keyword-draft-edit-address ()
   (interactive)
   (multiple-value-bind (from to tag)
       (find-text-attribute-point (point))
     (kamail3-keyword-address-complete-read (when (or (equal tag "to")
                                              (equal tag "cc")
                                              (equal tag "bcc"))
                                      tag))))
 
 (define-key *draft-map* '#\k 'kamail3-keyword-draft-edit-address)

# [xyzzy] [KaMailV3] バッファタブを隠す

いつものように，バッファタブを隠してみる。

 ;;; バッファタブを隠す
 (setq *buffer-prefix* " *KaMail-V3 ")
 (setq *buffer-summary*   (concat *buffer-prefix* "Summary*"))
 (setq *buffer-message*   (concat *buffer-prefix* "Message*"))
 (setq *buffer-draft*     (concat *buffer-prefix* "Draft*"))
 (setq *buffer-edit*      (concat *buffer-prefix* "Edit*"))
 (setq *buffer-send*      (concat *buffer-prefix* "Send*"))
 (setq *buffer-signature* (concat *buffer-prefix* "Signature*"))
 (setq *buffer-source*    (concat *buffer-prefix* "Source*"))
 (setq *buffer-fetch*     (concat *buffer-prefix* "Fetch*"))
 (setq *buffer-he-parse*  (concat *buffer-prefix* "HyperEstraier Parse*"))
 (setq *buffer-he-temp*   (concat *buffer-prefix* "HyperEstraier Temp*"))
 (setq *summary-buffer-partial-temp* (concat *buffer-prefix* "Partial Temp*"))

# [xyzzy] [KaMailV3] バッファの切替

バッファタブを隠してしまうと，バッファの切替ができないので，とりあえずポップアップメニューを作成。

 ;;; メッセージバッファへ移動
 (defun kamail3-switch-message ()
   (interactive)
   (let ((buf *buffer-message*))
     (when (find-buffer buf)
       (set-buffer buf))))
 
 ;;; バッファの切替
 (defvar *kamail3-F2-org-func* #'select-buffer)
 (defun kamail3-select-buffer ()
   (interactive)
   (if (string= (ed::pseudo-frame-name ed::*current-pseudo-frame*) km3::*pframe-name*)
       (let ((menu (create-popup-menu nil)))
         (continue-pre-selection)
         (save-excursion
           (dolist (buffer (buffer-list))
             (let ((item (buffer-name buffer)))
               (when (string-match (regexp-quote *buffer-prefix*) item)
                 (add-menu-item menu nil
                                item
                                #'(lambda () (interactive)
                                    (switch-to-buffer item)
                                    (when (equal *buffer-source* (buffer-name (selected-buffer)))
                                      (let ((keymap (copy-keymap (local-keymap))))
                                        (define-key keymap #\RET 'kamail3-switch-message)
                                        (define-key keymap #\ESC 'kamail3-switch-message)
                                        (define-key keymap #\q   'kamail3-switch-message)
                                        (define-key keymap #\Q   'kamail3-switch-message)
                                        (use-keymap keymap))))
                                #'(lambda ()
                                    (when (string= item (buffer-name (selected-buffer)))
                                      :check)))))))
         (track-popup-menu menu))
     (funcall *kamail3-F2-org-func*)))
 (global-set-key #\F2 'kamail3-select-buffer)

# [xyzzy] [KaMailV3] スクロール関連

Enter で，メッセージの表示＆前方スクロール。Ctrl+Enter で，メッセージの表示＆後方スクロール。KaMailV3 本体のコードを流用させていただいてます。

 ;;; メッセージの表示＆前方スクロール
 (defun summary-view-mail-or-scroll-forward (&optional backward)
   (interactive)
   (let* ((msg (summary-message-current))
          (num (car msg))
          (header (cdr msg))
          (file (summary-message-file header)))
     (when file
       (if (and (equal file *message-file-current*)
                (message-window-get))
           (let (scroll-end)
             (message-window-set)
             (unless (if backward
                         (pos-visible-in-window-p (point-min))
                       (pos-visible-in-window-p (point-max)))
               (scroll-window (if backward (- 1) 1)))
             (other-window 1))
         (progn
           (unless (file-exist-p file)
             (error "ファイルがありません: ~S" file))
           (summary-recenter)
           (when (message-show file)
             (other-window 1)
             (summary-message-seen-if msg)
             ))))))
 (define-key *summary-map* #\RET 'summary-view-mail-or-scroll-forward)
 
 ;;; メッセージの表示＆後方スクロール
 (defun summary-view-mail-or-scroll-backward ()
   (interactive)
   (summary-view-mail-or-scroll-forward t))
 (define-key *summary-map* #\C-j 'summary-view-mail-or-scroll-backward)

# [xyzzy] [KaMailV3] メッセージを表示＆メッセージウィンドウに移動＆既読に

v で。こちらも，KaMailV3 本体のコードを流用しています。

 (defun my-summary-view-mail ()
   (interactive)
   (let* ((msg (summary-message-current))
          (num (car msg))
          (header (cdr msg))
          (file (summary-message-file header)))
     (unless file
       (return-from summary-view-mail))
     (if (and (equal file *message-file-current*)
              (message-window-get))
         (message-window-set)
       (progn
         (summary-message-seen-if msg)
         (message-show file)))
     t))
 (define-key *summary-map* #\v 'my-summary-view-mail)

# [xyzzy] [KaMailV3] 送信者アドレスを""でくくらない

kamail3/defs.l の format-address を思い切って上書きです。

 (defun format-address (email name)
   (if name
       ;(format nil "\"~A\" <~A>" name email)
       (format nil "~A <~A>" name email)
     email))

# [xyzzy] [KaMailV3] From が自分の場合は，"To:宛先"を表示

KaMail 風にしたくって。これまた kamail3/summary.l の summary-print-line を上書きです。

 (defun summary-print-line (num header &optional indent-string)
   (let* ((path (junk::mail-get-header-value "_lpath" header))
          (fromstr (junk::mail-get-header-value "from" header))
          (from fromstr)
          (to (junk::mail-get-header-value "to" header))
          from-string
          (title (junk::mail-get-header-value "subject" header))
          (datestr (junk::mail-get-header-value "date" header))
          (date (and datestr (junk::rfc822-parse-date (if (listp datestr)
                                                          (car datestr)
                                                        datestr))))
          (status (attr-status-get header))
          (multipart-p (junk::mail-multipart-p header))
          (marked (summary-message-marked num))
          )
     ;(multiple-value-bind (email name)
         ;(parse-address from)
       ;(setq from-string (or name email from)))
     (multiple-value-bind (email name)
         (parse-address from)
       (setq from-string
             (if (member email *from-address* :key #'car :test #'string=)
                 (multiple-value-bind (email name)
                     (parse-address to)
                   (concat "To:" (or name email to)))
               (or name email from))))
     (apply #'set-text-attribute
            (point)
            (progn
              (insert (summary-mark-string marked))
              (point))
            num
            *attribute-summary-mark*)
     … 省略 …
     (insert "\n")))

# [xyzzy] [KaMailV3] 不具合？

使っていて，少々気になったところ。もしや，環境に問題ありかもなので，調査が必要。＞自分

• 起動時に，サマリが表示されないことがあり。
• KaMailV3用バッファでないバッファのモードラインフォーマットが変わってしまう。

なんとなく，発生する状況が特定できているが，原因はわからず。