471 |
\\[mail-sent-via] mail-sent-via (add a Sent-via field for each To or CC). |
\\[mail-sent-via] mail-sent-via (add a Sent-via field for each To or CC). |
472 |
Turning on Mail mode runs the normal hooks `text-mode-hook' and |
Turning on Mail mode runs the normal hooks `text-mode-hook' and |
473 |
`mail-mode-hook' (in that order)." |
`mail-mode-hook' (in that order)." |
474 |
|
(setq local-abbrev-table text-mode-abbrev-table) |
475 |
(make-local-variable 'mail-reply-action) |
(make-local-variable 'mail-reply-action) |
476 |
(make-local-variable 'mail-send-actions) |
(make-local-variable 'mail-send-actions) |
477 |
(setq buffer-offer-save t) |
(setq buffer-offer-save t) |
1548 |
;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF |
;; "#<RANDOM-STUFF>#" to the buffer name, where RANDOM-STUFF |
1549 |
;; is the result of (make-temp-name ""). |
;; is the result of (make-temp-name ""). |
1550 |
(setq non-random-len |
(setq non-random-len |
1551 |
(- (length file-name) (length (make-temp-name "")) 1)) |
(- (length file-name) (length (make-temp-name "")))) |
1552 |
(setq wildcard (concat (substring file-name 0 non-random-len) "*")) |
(setq wildcard (concat (substring file-name 0 non-random-len) "*")) |
1553 |
(if (null (file-expand-wildcards wildcard)) |
(if (null (file-expand-wildcards wildcard)) |
1554 |
(message "There are no auto-saved drafts to recover") |
(message "There are no auto-saved drafts to recover") |
1632 |
;; ls-lisp instead). |
;; ls-lisp instead). |
1633 |
(dired-noselect file-name |
(dired-noselect file-name |
1634 |
(concat dired-listing-switches "t")))) |
(concat dired-listing-switches "t")))) |
1635 |
(save-excursion |
(save-selected-window |
1636 |
(set-buffer dispbuf) |
(select-window (display-buffer dispbuf t)) |
1637 |
(let ((buffer-read-only nil)) |
(goto-char (point-min)) |
1638 |
(goto-char (point-min)) |
(forward-line 2) |
1639 |
(forward-line) |
(dired-move-to-filename) |
1640 |
(kill-line 2) |
(setq dispbuf (rename-buffer "*Directory*" t))) |
|
(dired-move-to-filename) |
|
|
(setq dispbuf (rename-buffer "*Directory*" t)))) |
|
|
(display-buffer dispbuf t) |
|
1641 |
(if (not (yes-or-no-p |
(if (not (yes-or-no-p |
1642 |
(format "Recover mail draft from auto save file %s? " |
(format "Recover mail draft from auto save file %s? " |
1643 |
file-name))) |
file-name))) |