[Mew-dist 606] mew-summary-burst
UMESHIMA Atsushi
umeshima at example.com
1997年 3月 6日 (木) 18:21:38 JST
うめしまです。
mew-summary-burstの時に、展開されたメールをmewで読もうと思って、
展開先としてフォルダのあるディレクトリを指定したら、そのフォルダ
の"1"から順に上書きされてしまいましたが、そういう仕様なのでしょうか?
ちょっと悲しかったので、展開先としてディレクトリでなくフォルダを
指定するようにしてみました。
こんな感じでいかがでしょう。
#本当は、存在しないフォルダが指定されたら新しく作るようにした方がいいかと
#思ったのですが、分からなかったのでやめました。
--
うめしま<umeshima at example.com>
-------------- next part --------------
*** mew-summary.el.orig Mon Mar 3 03:17:56 1997
--- mew-summary.el Thu Mar 6 17:22:11 1997
***************
*** 2472,2499 ****
(file-coding-system (if mew-mule-p *noconv*))
(n 1) (m 1) syntax len entry dir multi)
(message "Bursting ... ")
! (set-buffer mew-buffer-tmp)
! (widen)
! (erase-buffer)
! (insert-file-contents target)
! (setq syntax (mew-decode (mew-decode-syntax-rfc822-head) t))
! (setq multi (mew-syntax-get-part syntax))
! (if (not (mew-syntax-multipart-p multi))
! (message "Can't burst")
! (setq dir (mew-input-directory-name))
! (setq len (- (length multi) mew-syntax-magic))
! (while (<= n len)
! (setq entry (mew-syntax-get-entry syntax (list n)))
! (if (not (equal (mew-syntax-get-ct entry) mew-type-msg))
! ()
! (write-region
! (mew-syntax-get-begin entry)
! (mew-syntax-get-end entry)
! (expand-file-name (int-to-string m) dir))
! (setq m (1+ m)))
! (setq n (1+ n))
)
- (message "Bursting ... done")
)
))
))
--- 2479,2526 ----
(file-coding-system (if mew-mule-p *noconv*))
(n 1) (m 1) syntax len entry dir multi)
(message "Bursting ... ")
! (let ((folder (mew-input-folder (buffer-name))))
! (if (mew-member folder mew-folder-list)
! (message "No such folder %s" (mew-dir-to-folder folder))
! (if (get-buffer folder)
! (switch-to-buffer folder)
! (mew-summary-folder-create folder))
! (mew-summary-folder-cache-manage folder)
! (if (and mew-summary-cache-use (mew-summary-folder-dir-newp))
! (progn
! (mew-summary-scan-body folder (mew-input-range folder))
! (while mew-summary-buffer-process (sit-for 1))
! ))
! (goto-char (point-max))
! (forward-line -1)
! (setq m (mew-summary-message-number))
! (if m
! (setq m (1+ (string-to-int (mew-summary-message-number))))
! (setq m 1))
! (set-buffer mew-buffer-tmp)
! (widen)
! (erase-buffer)
! (insert-file-contents target)
! (setq syntax (mew-decode (mew-decode-syntax-rfc822-head) t))
! (setq multi (mew-syntax-get-part syntax))
! (if (not (mew-syntax-multipart-p multi))
! (message "Can't burst")
! (setq len (- (length multi) mew-syntax-magic))
! (while (<= n len)
! (setq entry (mew-syntax-get-entry syntax (list n)))
! (if (not (equal (mew-syntax-get-ct entry) mew-type-msg))
! ()
! (write-region
! (mew-syntax-get-begin entry)
! (mew-syntax-get-end entry)
! (mew-expand-file-name (int-to-string m) folder))
! (setq m (1+ m)))
! (setq n (1+ n))
! )
! (mew-summary-scan-body folder (mew-input-range folder))
! (message "Bursting ... done")
! )
)
)
))
))
Mew-dist メーリングリストの案内