[Mew-dist 08399] Re: mew-summary-reedit won't work on Mew 1.94b16 (b15?) - b19
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
1999年 4月 1日 (木) 10:06:22 JST
From: HIRATA Yasuyuki <yasu at example.com>
Subject: [Mew-dist 08397] mew-summary-reedit won't work on Mew 1.94b16 (b15?) - b19
Date: Thu, 1 Apr 1999 09:41:45 +0900
> さて、summary modeの'E'(mew-summary-reedit) ですが、最近の版では
> No such face: t
> とミニバッファに表示され、Draft modeになりません。
チェックが厳しいなぁ。> XEmacs
以下で直ると思います。おまけで、Text/Html ハック付き。(個別に diff を取
るのが面倒ともいう。)
--かず
-------------- next part --------------
? LOG
? LOGLESS
? TODO
? misc
Index: 00changes
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/00changes,v
retrieving revision 1.275
diff -c -r1.275 00changes
*** 00changes 1999/03/31 23:23:19 1.275
--- 00changes 1999/04/01 01:17:50
***************
*** 8,13 ****
--- 8,14 ----
Old PGP armor support (accept only)
* info update
* warn when putting mark
+ * displaying status
Mew 1.95
* Real internationalization and multi-lingualization.
***************
*** 20,25 ****
--- 21,32 ----
* Database support
Virtual mode extensions including thread.
*** todo ***
+
+ 1.94b20
+
+ * Changed face "t" to "'default" for XEmacs.
+ * Defined mew-prog-text/html-arg-hack.
+ Enjoy: (setq mew-prog-text/html-arg-hack 'mew-prog-text/html-netscape-remote)
1.94b19 (99/04/01) mew-dist release
Index: mew-decode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.59
diff -c -r1.59 mew-decode.el
*** mew-decode.el 1999/03/31 23:22:25 1.59
--- mew-decode.el 1999/04/01 01:17:50
***************
*** 123,129 ****
(setq val-face (or (nth 4 N-spec) defval))
(put-text-property beg med 'face key-face)
(put-text-property med (point) 'face val-face)))))
! (put-text-property BEG END 'face t)))
(defun mew-decode-rfc822-header (&optional no-property)
"A function to handle RFC822 header.
--- 123,129 ----
(setq val-face (or (nth 4 N-spec) defval))
(put-text-property beg med 'face key-face)
(put-text-property med (point) 'face val-face)))))
! (put-text-property BEG END 'face 'default))) ;; not avoidable
(defun mew-decode-rfc822-header (&optional no-property)
"A function to handle RFC822 header.
***************
*** 173,179 ****
(mew-addrstr-parse-value
(buffer-substring med (point)))))))
(if no-property
! (put-text-property beg (point) 'face t) ;; not avoidable
(setq key-face (or (nth 3 N-spec) defkey))
(setq val-face (or (nth 4 N-spec) defval))
(put-text-property beg med 'face key-face)
--- 173,179 ----
(mew-addrstr-parse-value
(buffer-substring med (point)))))))
(if no-property
! (put-text-property beg (point) 'face 'default) ;; not avoidable
(setq key-face (or (nth 3 N-spec) defkey))
(setq val-face (or (nth 4 N-spec) defval))
(put-text-property beg med 'face key-face)
Index: mew-mime.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-mime.el,v
retrieving revision 1.53
diff -c -r1.53 mew-mime.el
*** mew-mime.el 1999/03/31 23:05:29 1.53
--- mew-mime.el 1999/04/01 01:17:50
***************
*** 214,219 ****
--- 214,222 ----
(goto-char (point-min))
(mew-message-narrow-to-page))))))
+ (defun mew-prog-text/html-netscape-remote ()
+ (list "-remote" (format mew-prog-text/html-netscape-remote-format file)))
+
(defun mew-mime-text/html (begin end &optional params execute)
(let ((size (- end begin))
(buffer-read-only nil))
***************
*** 253,267 ****
(funcall mew-prog-text/html (point-min) (point-max))))
((stringp mew-prog-text/html)
(if (> end begin)
! (let ((file (format "%s.html" (mew-make-temp-name))))
(save-excursion
(set-buffer (mew-current-get 'cache))
(mew-frwlet
mew-cs-noconv mew-cs-outfile
(write-region begin end file nil 'no-msg)
(apply (function start-process)
mew-prog-text/html mew-buffer-tmp mew-prog-text/html
! (append mew-prog-text/html-arg (list file))))))))))))
(defun mew-mime-message/rfc822 (part)
(let* ((hbeg (mew-syntax-get-begin part))
--- 256,273 ----
(funcall mew-prog-text/html (point-min) (point-max))))
((stringp mew-prog-text/html)
(if (> end begin)
! (let ((file (format "%s.html" (mew-make-temp-name))) arg)
(save-excursion
(set-buffer (mew-current-get 'cache))
+ (if mew-prog-text/html-arg-hack
+ (setq arg (funcall mew-prog-text/html-arg-hack))
+ (setq arg (append mew-prog-text/html-arg (list file))))
(mew-frwlet
mew-cs-noconv mew-cs-outfile
(write-region begin end file nil 'no-msg)
(apply (function start-process)
mew-prog-text/html mew-buffer-tmp mew-prog-text/html
! arg))))))))))
(defun mew-mime-message/rfc822 (part)
(let* ((hbeg (mew-syntax-get-begin part))
Index: mew-vars.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-vars.el,v
retrieving revision 1.112
diff -c -r1.112 mew-vars.el
*** mew-vars.el 1999/03/31 23:05:29 1.112
--- mew-vars.el 1999/04/01 01:17:50
***************
*** 1229,1235 ****
\"f\" and \"F\" are used. Otherwise, symbolic links are
created (if the feature is provided).")
! (defvar mew-cache-prefetch t)
;;
;; Environments
--- 1229,1247 ----
\"f\" and \"F\" are used. Otherwise, symbolic links are
created (if the feature is provided).")
! (defvar mew-cache-prefetch t
! "*If non-nil, Mew prefetches the next message in Summary mode
! and analyzes it while you are reading the current message.")
!
! (defvar mew-prog-text/html-arg-hack nil
! "*A kind of hook to modify arguments of mew-prog-text/html.
! A good candidate is \"mew-prog-text/html-netscape-remote\".")
!
! (defvar mew-prog-text/html-netscape-remote-format "openURL(%s)"
! "*A format used in \"mew-prog-text/html-netscape-remote\" to
! embed a temporary local HTML file. It must contains one %s, which
! will be replaced with the file name. Another example is
! \"openURL(%s,new-windows)\".")
;;
;; Environments
Mew-dist メーリングリストの案内