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) |
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 |
)) |
)) |
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 |
) |
) |
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 |
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)) |
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 |
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) |
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) |