[mew-dist 22251] unlink mark in nntp folder, etc...

[Hideyuki SHIRAI ( 白井秀行 )]

ちょっと気付いた雑多なもの何点かです。

(1) delete は

(defun mew-summary-delete (&optional count)
  "Put the delete mark (default is 'D') in COUNT times."
  (interactive "P")
  (mew-summary-not-in-nntp
   (mew-mark-put-mark-loop 'mew-summary-delete-one count nil)))

と not-in-nntp でガードしているのに、unlink は

(defun mew-summary-unlink (&optional count)
  "Put the unlink mark (default is 'X') in COUNT times."
  (interactive "P")
  (mew-mark-put-mark-loop 'mew-summary-unlink-one count nil))

とガードされていません。ガードするべきでしょう。


(2)
(defun mew-summary-mark-local-copy (&optional arg)
  "Copy cached message marked with '*' in a remote folder to a local
folder."
  (interactive "P")
  (mew-summary-msg-or-part
   (let ((mew-use-highlight-x-face nil)
	 (fld (mew-summary-folder-name))

の mew-summary-msg-or-part() は、例えば summary の (point-max)
にカーソルがいたときに動かないので良くないと思います。
mew-summary-not-in-draft() か mew-summary-or-thread() ではないか
と思います。

しかし、現状では mew-summary-local-copy() で 『+ => +』 で copy
出来るのですが、これ仕様通りですか？これが間違いなら、上記の修正
方法も違ってくるでしょう。


(3) (簡単だし)これ↓もあった方が良いのでは。

(define-key mew-summary-mode-map "lX" 'mew-summary-exec-offline-one)

(defun mew-summary-exec-offline-one (&optional arg)
  "省略"
  (interactive "P")
  (if (not (mew-folder-imapp (mew-sinfo-get-folder)))
      (message "This command cannot be used in this folder")
    (mew-summary-goto-message)
    (mew-decode-syntax-delete)
    (save-window-excursion
      (let (beg end)
	(save-excursion
	  (beginning-of-line)
	  (setq beg (if arg (point-min) (point)))
	  (end-of-line)
	  (setq end (1+ (point))))
	(if (> end (point-max))
	    (message "No message")
	  (sit-for 0)
	  (mew-summary-exec-offline-region beg end))))))


P.S.
で、やっぱり「nntp folder のゴミ記事は現状では消せない」なんです
よね。

# unlink mark がついたので、一瞬「消せるのか？」と期待してしまっ
# た ^^;;;

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