Mercurial > emacs
comparison lisp/=gnus.el @ 7560:e63efa2d587c
rmail-default-file renamed from rmail-last-file,
rmail-default-rmail-file renamed from rmail-last-...
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 May 1994 20:42:23 +0000 |
| parents | 66d8171f3d42 |
| children | 059281285df7 |
comparison
equal
deleted
inserted
replaced
| 7559:c786925f32a5 | 7560:e63efa2d587c |
|---|---|
| 767 (defvar gnus-group-mode-map nil) | 767 (defvar gnus-group-mode-map nil) |
| 768 (defvar gnus-summary-mode-map nil) | 768 (defvar gnus-summary-mode-map nil) |
| 769 (defvar gnus-article-mode-map nil) | 769 (defvar gnus-article-mode-map nil) |
| 770 (defvar gnus-kill-file-mode-map nil) | 770 (defvar gnus-kill-file-mode-map nil) |
| 771 | 771 |
| 772 (defvar rmail-last-file (expand-file-name "~/XMBOX")) | 772 (defvar rmail-default-file (expand-file-name "~/XMBOX")) |
| 773 (defvar rmail-last-rmail-file (expand-file-name "~/XNEWS")) | 773 (defvar rmail-default-rmail-file (expand-file-name "~/XNEWS")) |
| 774 | 774 |
| 775 ;; Define GNUS Subsystems. | 775 ;; Define GNUS Subsystems. |
| 776 (autoload 'gnus-group-post-news "gnuspost" | 776 (autoload 'gnus-group-post-news "gnuspost" |
| 777 "Post an article." t) | 777 "Post an article." t) |
| 778 (autoload 'gnus-summary-post-news "gnuspost" | 778 (autoload 'gnus-summary-post-news "gnuspost" |
| 3717 (lambda () | 3717 (lambda () |
| 3718 (set-buffer-modified-p nil) | 3718 (set-buffer-modified-p nil) |
| 3719 (message "(No changes need to be saved)") | 3719 (message "(No changes need to be saved)") |
| 3720 'no-need-to-write-this-buffer)))) | 3720 'no-need-to-write-this-buffer)))) |
| 3721 ;; Default file name saving digest messages. | 3721 ;; Default file name saving digest messages. |
| 3722 (setq rmail-last-rmail-file | 3722 (setq rmail-default-rmail-file |
| 3723 (funcall gnus-rmail-save-name | 3723 (funcall gnus-rmail-save-name |
| 3724 gnus-newsgroup-name | 3724 gnus-newsgroup-name |
| 3725 gnus-current-headers | 3725 gnus-current-headers |
| 3726 gnus-newsgroup-last-rmail | 3726 gnus-newsgroup-last-rmail |
| 3727 )) | 3727 )) |
| 3728 (setq rmail-last-file | 3728 (setq rmail-default-file |
| 3729 (funcall gnus-mail-save-name | 3729 (funcall gnus-mail-save-name |
| 3730 gnus-newsgroup-name | 3730 gnus-newsgroup-name |
| 3731 gnus-current-headers | 3731 gnus-current-headers |
| 3732 gnus-newsgroup-last-mail | 3732 gnus-newsgroup-last-mail |
| 3733 )) | 3733 )) |
| 5257 (defun gnus-output-to-rmail (file-name) | 5257 (defun gnus-output-to-rmail (file-name) |
| 5258 "Append the current article to an Rmail file named FILE-NAME." | 5258 "Append the current article to an Rmail file named FILE-NAME." |
| 5259 (require 'rmail) | 5259 (require 'rmail) |
| 5260 ;; Most of these codes are borrowed from rmailout.el. | 5260 ;; Most of these codes are borrowed from rmailout.el. |
| 5261 (setq file-name (expand-file-name file-name)) | 5261 (setq file-name (expand-file-name file-name)) |
| 5262 (setq rmail-last-rmail-file file-name) | 5262 (setq rmail-default-rmail-file file-name) |
| 5263 (let ((artbuf (current-buffer)) | 5263 (let ((artbuf (current-buffer)) |
| 5264 (tmpbuf (get-buffer-create " *GNUS-output*"))) | 5264 (tmpbuf (get-buffer-create " *GNUS-output*"))) |
| 5265 (save-excursion | 5265 (save-excursion |
| 5266 (or (get-file-buffer file-name) | 5266 (or (get-file-buffer file-name) |
| 5267 (file-exists-p file-name) | 5267 (file-exists-p file-name) |