[Mew-dist 1139] [DEMO] displaying news patch
SAKAI Kiyotaka
ksakai at example.com
1997年 7月 1日 (火) 16:28:20 JST
デモとして mew-1.85 でニュースの記事を表示させるためのパッチを作りまし
たので、お送りします。
なお、あくまでもこのパッチは、mew がニュースを取り扱うのにあと少しのと
ころまできていることをデモ的に示すものにすぎず、インターフェースやコー
ドの美しさ等はまったく考慮していませんので、そのあたりはご了承下さい。
使い方は、mew-summary-goto-folder で folder 名に -fj.sys.sun 等、ニュー
スグループ名の始めに "-" を付けたものを指定して下さい。
--
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el 1997/07/01 06:58:03 1.1
+++ mew.el 1997/07/01 06:58:27
@@ -423,6 +423,7 @@
(defvar mew-prog-imget "imget")
(defvar mew-prog-imls "imls")
+(defvar mew-prog-imcat "imcat")
(defvar mew-prog-imali "imali")
(defvar mew-prog-impath "impath")
(defvar mew-prog-impack "impack")
-------------- next part --------------
===================================================================
RCS file: RCS/mew-summary.el,v
retrieving revision 1.2
diff -u -r1.2 mew-summary.el
--- mew-summary.el 1997/07/01 06:49:59 1.2
+++ mew-summary.el 1997/07/01 07:17:57
@@ -463,12 +463,13 @@
(interactive)
(let* ((folder (mew-input-folder mew-inbox-folder))
(dir (mew-expand-folder folder)))
- (if (null (file-directory-p dir))
- (message "No such folder %s" folder)
+ (if (not (or (string-match "-" folder) (file-directory-p dir)))
+ (message "No such folder %s" folder)
(if (get-buffer folder)
(switch-to-buffer folder)
(mew-summary-folder-create folder))
- (cd dir)
+ (or (string-match "-" folder)
+ (cd dir))
(mew-summary-ls)
)))
@@ -623,7 +624,8 @@
(opart (mew-current-get 'part))
(buf (buffer-name))
(next nil))
- (if (not (file-exists-p (mew-expand-folder fld msg)))
+ (if (not (or (file-exists-p (mew-expand-folder fld msg))
+ (string-match "-" fld)))
(message "File does not exist.")
(mew-summary-toggle-disp-msg 'on)
(unwind-protect
@@ -767,6 +769,10 @@
(setq mew-decode-result nil)
(setq mew-decode-syntax nil)
(cond
+ ((string-match "-" fld)
+ (let ((coding-system-for-read 'automatic-conversion))
+ (call-process mew-prog-imcat nil t nil (format "--src=%s" fld) msg))
+ (mew-header-arrange))
((equal fld mew-draft-folder)
(insert-file-contents file))
((and (not analysis)
-------------- next part --------------
===================================================================
RCS file: RCS/mew-scan.el,v
retrieving revision 1.1
diff -u -r1.1 mew-scan.el
--- mew-scan.el 1997/07/01 07:07:32 1.1
+++ mew-scan.el 1997/07/01 07:09:12
@@ -49,6 +49,7 @@
(if (not (mew-folder-member folder mew-clean-up-buffers))
(setq mew-clean-up-buffers (cons folder mew-clean-up-buffers)))
(if (or (interactive-p)
+ (string-match "-" folder)
(and mew-summary-cache-use
(mew-summary-folder-dir-newp)))
(mew-summary-scan-body mew-prog-imls
-------------- next part --------------
===================================================================
RCS file: RCS/mew-minibuf.el,v
retrieving revision 1.1
diff -u -r1.1 mew-minibuf.el
--- mew-minibuf.el 1997/07/01 06:58:36 1.1
+++ mew-minibuf.el 1997/07/01 06:59:17
@@ -16,7 +16,7 @@
;; ugh! Hard coding... Setq by yourself if you don't use +draft.
(defvar mew-range-alist
- '(("+draft" . "all") ("+trash" . "all") (".*" . "update"))
+ '(("+draft" . "all") ("+trash" . "all") ("-.*" . "all") (".*" . "update"))
"*alist of folder and default range pair")
(defvar mew-mini-address-map nil)
Mew-dist メーリングリストの案内