59 |
(require 'mail-utils) |
(require 'mail-utils) |
60 |
(require 'sendmail) |
(require 'sendmail) |
61 |
|
|
62 |
|
(defvar caesar-translate-table) |
63 |
|
(defvar minor-modes) |
64 |
|
(defvar news-buffer-save) |
65 |
|
(defvar news-group-name) |
66 |
|
(defvar news-minor-modes) |
67 |
|
|
68 |
(autoload 'rmail-output "rmailout" |
(autoload 'rmail-output "rmailout" |
69 |
"Append this message to Unix mail file named FILE-NAME." |
"Append this message to Unix mail file named FILE-NAME." |
70 |
t) |
t) |
893 |
(progn |
(progn |
894 |
(message |
(message |
895 |
"Added %s to your list of newsgroups." gp) |
"Added %s to your list of newsgroups." gp) |
896 |
(end-of-buffer) |
(goto-char (point-max)) |
897 |
(insert gp ": 1-1\n"))) |
(insert gp ": 1-1\n"))) |
898 |
(search-backward gp nil t) |
(search-backward gp nil t) |
899 |
(let (start end endofline tem) |
(let (start end endofline tem) |