Remove patch-shimbun:mew-shimbun.el. (Forgotten in the last update)
Pointed out by: Mamoru Iwaki <iwaki@bc.niigata-u.ac.jp>
This commit is contained in:
parent
b0c8c96a22
commit
15bdd7d530
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=83527
1 changed files with 0 additions and 52 deletions
|
@ -1,52 +0,0 @@
|
|||
===================================================================
|
||||
RCS file: /storage/cvsroot/emacs-w3m/shimbun/mew-shimbun.el,v
|
||||
retrieving revision 1.10.2.9
|
||||
retrieving revision 1.10.2.10
|
||||
diff -u -r1.10.2.9 -r1.10.2.10
|
||||
--- shimbun/mew-shimbun.el 2002/10/31 02:53:17 1.10.2.9
|
||||
+++ shimbun/mew-shimbun.el 2002/11/04 11:23:54 1.10.2.10
|
||||
@@ -264,6 +264,12 @@
|
||||
(format mew-shimbun-lock-format2 group server get count sum))
|
||||
(force-mode-line-update))
|
||||
|
||||
+(w3m-static-if (fboundp 'mew-summary-visit-folder)
|
||||
+ (defalias 'mew-shimbun-visit-folder 'mew-summary-visit-folder)
|
||||
+ (defun mew-shimbun-visit-folder (folder)
|
||||
+ (mew-summary-ls
|
||||
+ (mew-summary-switch-to-folder folder))))
|
||||
+
|
||||
;;; Main:
|
||||
;;;###autoload
|
||||
(defun mew-shimbun-goto-unseen-folder ()
|
||||
@@ -381,13 +387,13 @@
|
||||
(setq dir (mew-expand-folder fld))
|
||||
(unless (file-directory-p dir)
|
||||
(mew-make-directory dir))
|
||||
- (mew-summary-visit-folder fld)
|
||||
+ (mew-shimbun-visit-folder fld)
|
||||
(sit-for 0.5)
|
||||
(mew-rendezvous mew-summary-buffer-process)
|
||||
(mew-shimbun-retrieve)
|
||||
(unless (eq (get-buffer cfld) (current-buffer))
|
||||
(mew-kill-buffer (current-buffer)))))
|
||||
- (mew-summary-visit-folder cfld)
|
||||
+ (mew-shimbun-visit-folder cfld)
|
||||
(message "Getting done"))))
|
||||
|
||||
(defun mew-shimbun-retrieve-article (mua server group range fld)
|
||||
@@ -633,13 +639,13 @@
|
||||
(when (and (file-directory-p (mew-expand-folder fld))
|
||||
(file-exists-p (expand-file-name mew-shimbun-db-file
|
||||
(mew-expand-folder fld))))
|
||||
- (mew-summary-visit-folder fld)
|
||||
+ (mew-shimbun-visit-folder fld)
|
||||
(sit-for 0.5)
|
||||
(mew-rendezvous mew-summary-buffer-process)
|
||||
(mew-shimbun-expire)
|
||||
(unless (eq (get-buffer cfld) (current-buffer))
|
||||
(mew-kill-buffer (current-buffer)))))
|
||||
- (mew-summary-visit-folder cfld)))
|
||||
+ (mew-shimbun-visit-folder cfld)))
|
||||
|
||||
;;;###autoload
|
||||
(defun mew-shimbun-expire ()
|
Loading…
Reference in a new issue