Fix two minor Gnus typos
* lisp/gnus/gnus-sum.el (gnus-summary-import-article): Remove unused local, and fix use of local that was never assigned to.
This commit is contained in:
@@ -10294,7 +10294,6 @@ latter case, they will be copied into the relevant groups."
|
||||
"Import an arbitrary file into a mail newsgroup."
|
||||
(interactive "fImport file: \nP")
|
||||
(let ((group gnus-newsgroup-name)
|
||||
(now (current-time))
|
||||
atts lines group-art)
|
||||
(unless (gnus-check-backend-function 'request-accept-article group)
|
||||
(error "%s does not support article importing" group))
|
||||
@@ -10313,6 +10312,7 @@ latter case, they will be copied into the relevant groups."
|
||||
(goto-char (point-min))
|
||||
(unless (re-search-forward "^date:" nil t)
|
||||
(goto-char (point-max))
|
||||
(setq atts (file-attributes file))
|
||||
(insert "Date: " (message-make-date (nth 5 atts)) "\n")))
|
||||
;; This doesn't look like an article, so we fudge some headers.
|
||||
(setq atts (file-attributes file)
|
||||
|
||||
Reference in New Issue
Block a user