/[emacs]/emacs/lisp/mail/mspools.el
ViewVC logotype

Diff of /emacs/lisp/mail/mspools.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by rms, Fri Nov 16 21:10:58 2001 UTC revision 1.11.4.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 196  your primary spool is.  If this fails, s Line 196  your primary spool is.  If this fails, s
196             mspools-vm-system-mail       ; your mailbox             mspools-vm-system-mail       ; your mailbox
197             vm-crash-box                 ;crash for mailbox             vm-crash-box                 ;crash for mailbox
198             ))             ))
199        
200      ;; Mailing list inboxes      ;; Mailing list inboxes
201      ;; must have VM already loaded to get vm-folder-directory.      ;; must have VM already loaded to get vm-folder-directory.
202      (mapcar '(lambda (s)      (mapcar '(lambda (s)
# Line 206  your primary spool is.  If this fails, s Line 206  your primary spool is.  If this fails, s
206                  (concat mspools-folder-directory s "." mspools-suffix)                  (concat mspools-folder-directory s "." mspools-suffix)
207                  (concat mspools-folder-directory s ".crash")))                  (concat mspools-folder-directory s ".crash")))
208              ;; So I create a vm-spool-files entry for each of those mail drops              ;; So I create a vm-spool-files entry for each of those mail drops
209              (mapcar 'file-name-sans-extension              (mapcar 'file-name-sans-extension
210                      (directory-files mspools-folder-directory nil                      (directory-files mspools-folder-directory nil
211                                       (format "^[^.]+\\.%s" mspools-suffix)))                                       (format "^[^.]+\\.%s" mspools-suffix)))
212              ))              ))
213     ))     ))
# Line 225  Buffer is not displayed if SHOW is non-n Line 225  Buffer is not displayed if SHOW is non-n
225          (delete-region (point-min) (point-max)))          (delete-region (point-min) (point-max)))
226      ;; else buffer doesn't exist so create it      ;; else buffer doesn't exist so create it
227      (get-buffer-create mspools-buffer))      (get-buffer-create mspools-buffer))
228      
229    ;; generate the list of spool files    ;; generate the list of spool files
230    (if mspools-using-vm    (if mspools-using-vm
231        (mspools-set-vm-spool-files))        (mspools-set-vm-spool-files))
232      
233    (mspools-get-spool-files)    (mspools-get-spool-files)
234    (if (not noshow) (pop-to-buffer mspools-buffer))    (if (not noshow) (pop-to-buffer mspools-buffer))
235      
236    (setq buffer-read-only t)    (setq buffer-read-only t)
237    (mspools-mode)    (mspools-mode)
238    )    )
# Line 244  Buffer is not displayed if SHOW is non-n Line 244  Buffer is not displayed if SHOW is non-n
244      (setq spool-name (mspools-get-spool-name))      (setq spool-name (mspools-get-spool-name))
245      (if (null spool-name)      (if (null spool-name)
246          (message "No spool on current line")          (message "No spool on current line")
247          
248        (setq folder-name (mspools-get-folder-from-spool spool-name))        (setq folder-name (mspools-get-folder-from-spool spool-name))
249          
250        ;; put in a little "*" to indicate spool file has been read.        ;; put in a little "*" to indicate spool file has been read.
251        (if (not mspools-update)        (if (not mspools-update)
252            (save-excursion            (save-excursion
# Line 266  Buffer is not displayed if SHOW is non-n Line 266  Buffer is not displayed if SHOW is non-n
266            (next-line (- 1 mspools-files-len)) ;back to top of list            (next-line (- 1 mspools-files-len)) ;back to top of list
267          ;; else just on to next line          ;; else just on to next line
268          (next-line 1))          (next-line 1))
269          
270        ;; Choose whether to use VM or RMAIL for reading folder.        ;; Choose whether to use VM or RMAIL for reading folder.
271        (if mspools-using-vm        (if mspools-using-vm
272            (vm-visit-folder (concat mspools-folder-directory folder-name))            (vm-visit-folder (concat mspools-folder-directory folder-name))
# Line 275  Buffer is not displayed if SHOW is non-n Line 275  Buffer is not displayed if SHOW is non-n
275          (setq rmail-inbox-list          (setq rmail-inbox-list
276                (list (concat mspools-folder-directory spool-name)))                (list (concat mspools-folder-directory spool-name)))
277          (rmail-get-new-mail))          (rmail-get-new-mail))
278          
279          
280        (if mspools-update        (if mspools-update
281            ;; generate new list of spools.            ;; generate new list of spools.
282            (save-excursion            (save-excursion
# Line 313  Buffer is not displayed if SHOW is non-n Line 313  Buffer is not displayed if SHOW is non-n
313  (if mspools-mode-map  (if mspools-mode-map
314      ()      ()
315    (setq mspools-mode-map (make-sparse-keymap))    (setq mspools-mode-map (make-sparse-keymap))
316      
317    (define-key mspools-mode-map "\C-c\C-c" 'mspools-visit-spool)    (define-key mspools-mode-map "\C-c\C-c" 'mspools-visit-spool)
318    (define-key mspools-mode-map "\C-m" 'mspools-visit-spool)    (define-key mspools-mode-map "\C-m" 'mspools-visit-spool)
319    (define-key mspools-mode-map " " 'mspools-visit-spool)    (define-key mspools-mode-map " " 'mspools-visit-spool)
# Line 334  Buffer is not displayed if SHOW is non-n Line 334  Buffer is not displayed if SHOW is non-n
334  nil."  nil."
335    (interactive)    (interactive)
336    (mspools-show noshow))    (mspools-show noshow))
337      
338  (defun mspools-help ()  (defun mspools-help ()
339    "Show help for `mspools-mode'."    "Show help for `mspools-mode'."
340    (interactive)    (interactive)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.11.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26