diff options
| author | Richard M. Stallman | 1995-10-04 20:07:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-04 20:07:33 +0000 |
| commit | 0e53683493a905c8efbcb90bb60d82adec30d020 (patch) | |
| tree | d8a59993260205f8d77d81a76ce2bacdfd20f070 | |
| parent | ee1323a2f508aee52c71e2fc7637370b556b9196 (diff) | |
| download | emacs-0e53683493a905c8efbcb90bb60d82adec30d020.tar.gz emacs-0e53683493a905c8efbcb90bb60d82adec30d020.zip | |
(gnus-summary-save-in-mail): Use mail-file-babyl-p.
| -rw-r--r-- | lisp/gnus.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index f9e1f7326b4..0a410e367d7 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -4077,7 +4077,7 @@ is initialized from the SAVEDIR environment variable." | |||
| 4077 | (and default-name | 4077 | (and default-name |
| 4078 | (file-name-directory default-name)))) | 4078 | (file-name-directory default-name)))) |
| 4079 | (gnus-make-directory (file-name-directory filename)) | 4079 | (gnus-make-directory (file-name-directory filename)) |
| 4080 | (if (and (file-readable-p filename) (rmail-file-p filename)) | 4080 | (if (and (file-readable-p filename) (mail-file-babyl-p filename)) |
| 4081 | (gnus-output-to-rmail filename) | 4081 | (gnus-output-to-rmail filename) |
| 4082 | (rmail-output filename 1 t t)) | 4082 | (rmail-output filename 1 t t)) |
| 4083 | ;; Remember the directory name to save articles. | 4083 | ;; Remember the directory name to save articles. |