[Mew-dist 08588] PGP encrypted
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
1999年 4月 21日 (水) 08:55:35 JST
暗号化されたメールが refile できない問題は、以下のパッチで直ります。
1.94b23 に当てて下さい。
今週はドキュメント強化週間にしようと思っていましたが、なかなか時間がと
れません。(motonori 先生も、忙しい模様。)
--かず
-------------- next part --------------
Index: mew/00changes
diff -c mew/00changes:1.288 mew/00changes:1.289
*** mew/00changes:1.288 Sun Apr 18 19:32:33 1999
--- mew/00changes Tue Apr 20 16:25:59 1999
***************
*** 22,27 ****
--- 22,33 ----
Virtual mode extensions including thread.
*** todo ***
+ 1.94b24
+
+ * Fixed the refile vs next-encrypted message problem.
+ * Use message instead of error when decoding is quitted.
+ kyota at example.com (Kyotaro HORIGUCHI)
+
1.94b23 (99/04/18) mew-dist release
* It appeared that changing mew-cs-draft to ctext is a bad idea. So,
Index: mew/mew-cache.el
diff -c mew/mew-cache.el:1.14 mew/mew-cache.el:1.15
*** mew/mew-cache.el:1.14 Fri Apr 2 10:31:40 1999
--- mew/mew-cache.el Tue Apr 20 16:26:00 1999
***************
*** 119,127 ****
(mew-decode fld msg))
(quit
(mew-cache-delete)
! (error "MIME decoding for %s/%s is quitted." fld msg))))
! hit ;; retrun value
! ))
(defun mew-cache-clean-up ()
"A function to flush all decoded messages in cache list."
--- 119,127 ----
(mew-decode fld msg))
(quit
(mew-cache-delete)
! (message "MIME decoding for %s/%s is quitted." fld msg)
! nil))) ;; will not be used
! hit)) ;; retrun value
(defun mew-cache-clean-up ()
"A function to flush all decoded messages in cache list."
Index: mew/mew-highlight.el
diff -c mew/mew-highlight.el:1.29 mew/mew-highlight.el:1.30
*** mew/mew-highlight.el:1.29 Thu Apr 1 08:22:25 1999
--- mew/mew-highlight.el Tue Apr 20 12:28:24 1999
***************
*** 171,176 ****
--- 171,179 ----
;; X-Face:
;;
+ ;; uncompface: ftp://ftp.cs.indiana.edu/pub/faces/xfaces/xfaces-<ver>.tar.Z
+ ;; icontopbm: ftp://ftp.x.org/R5contrib/netpbm-<ver>.tar.gz
+
(defun mew-highlight-x-face (beg end)
"A function to display X-Face."
(if (and mew-use-highlight-x-face mew-use-highlight-x-face-function)
***************
*** 179,184 ****
--- 182,188 ----
(cond
(mew-xemacs-p
(autoload 'highlight-headers-x-face-to-pixmap "highlight-headers")
+ ;; now this is in the "mail-lib" package.
(defvar mew-use-highlight-x-face-function
(function (lambda (beg end)
(interactive)
Index: mew/mew-refile.el
diff -c mew/mew-refile.el:1.58 mew/mew-refile.el:1.59
*** mew/mew-refile.el:1.58 Mon Apr 5 13:07:35 1999
--- mew/mew-refile.el Tue Apr 20 16:26:00 1999
***************
*** 463,469 ****
(setq buf (current-buffer))
(mew-insert-message fld msg mew-cs-autoconv
mew-header-reasonable-size))
! (mew-summary-display nil) ;; cursor position is important
(setq buf (or (mew-cache-hit (cons (buffer-name) msg))
(mew-buffer-message)))) ;; for ","
(setq learn-info (mew-refile-decide-folders buf msg mark auto))
--- 463,469 ----
(setq buf (current-buffer))
(mew-insert-message fld msg mew-cs-autoconv
mew-header-reasonable-size))
! (mew-summary-display nil 'non-pf) ;; cursor position is important
(setq buf (or (mew-cache-hit (cons (buffer-name) msg))
(mew-buffer-message)))) ;; for ","
(setq learn-info (mew-refile-decide-folders buf msg mark auto))
Index: mew/mew-summary.el
diff -c mew/mew-summary.el:1.139 mew/mew-summary.el:1.141
*** mew/mew-summary.el:1.139 Wed Apr 14 17:48:31 1999
--- mew/mew-summary.el Tue Apr 20 17:02:48 1999
***************
*** 681,687 ****
(mew-summary-display-asis)
(mew-summary-display 'force)))
! (defun mew-summary-display (force)
"Display this message or this part. If already displayed, nothing
changed. But if FORCE is t, the message or the part is re-displayed."
(if (not (or force mew-summary-buffer-disp-msg))
--- 681,687 ----
(mew-summary-display-asis)
(mew-summary-display 'force)))
! (defun mew-summary-display (force &optional non-prefetch)
"Display this message or this part. If already displayed, nothing
changed. But if FORCE is t, the message or the part is re-displayed."
(if (not (or force mew-summary-buffer-disp-msg))
***************
*** 713,719 ****
part)))))
(mew-pop-to-buffer buf)
;; summary buffer
! (mew-summary-show-postscript 'prefetch))))))
(defun mew-message-set-end-of ()
(let ((buffer-read-only nil))
--- 713,719 ----
part)))))
(mew-pop-to-buffer buf)
;; summary buffer
! (mew-summary-show-postscript (not non-prefetch)))))))
(defun mew-message-set-end-of ()
(let ((buffer-read-only nil))
***************
*** 798,815 ****
(message "Too large, this message was truncated. To see the entire message, type %s." key)))
(t
(setq hit (mew-cache-message fld msg))
! (mew-current-set 'cache hit)
! (setq mew-decode-syntax (mew-cache-decode-syntax hit))
! (setq mew-decode-error (mew-cache-decode-error hit))
! (setq mew-syntax-multi-form (mew-cache-multi-form hit))
! (setq mew-syntax-icon-spec (mew-cache-icon-spec hit))
! (setq mew-syntax-privacy-result (mew-cache-privacy-result hit))
! (mew-decode-syntax-print buf mew-decode-syntax
! mew-syntax-multi-form
! mew-syntax-icon-spec)
! (mew-mime-message/rfc822 mew-decode-syntax)
! (if mew-decode-error
! (message "MIME decoding error: %s" mew-decode-error)))))
(mew-summary-display-postscript)))
(defun mew-summary-display-part (fullpart nums &optional execute)
--- 798,817 ----
(message "Too large, this message was truncated. To see the entire message, type %s." key)))
(t
(setq hit (mew-cache-message fld msg))
! (if (null hit)
! ()
! (mew-current-set 'cache hit)
! (setq mew-decode-syntax (mew-cache-decode-syntax hit))
! (setq mew-decode-error (mew-cache-decode-error hit))
! (setq mew-syntax-multi-form (mew-cache-multi-form hit))
! (setq mew-syntax-icon-spec (mew-cache-icon-spec hit))
! (setq mew-syntax-privacy-result (mew-cache-privacy-result hit))
! (mew-decode-syntax-print buf mew-decode-syntax
! mew-syntax-multi-form
! mew-syntax-icon-spec)
! (mew-mime-message/rfc822 mew-decode-syntax)
! (if mew-decode-error
! (message "MIME decoding error: %s" mew-decode-error))))))
(mew-summary-display-postscript)))
(defun mew-summary-display-part (fullpart nums &optional execute)
Mew-dist メーリングリストの案内