procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/gnus/message.el (message--check-continuation-headers): Extract

Browse source
This commit is contained in:
Oleh Krehel 2019-06-06 16:01:10 +02:00
parent e188f08fcd
commit e51adfbdb7
1 changed files with 13 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lisp/gnus/message.el
View file

@ -4476,6 +4476,17 @@ This function could be useful in `message-setup-hook'."
(declare-function hashcash-wait-async "hashcash" (&optional buffer)) (declare-function hashcash-wait-async "hashcash" (&optional buffer))
(defun message--check-continuation-headers ()
(message-check 'continuation-headers
(goto-char (point-min))
(while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t)
(goto-char (match-beginning 0))
(if (y-or-n-p "Fix continuation lines? ")
(insert " ")
(forward-line 1)
(unless (y-or-n-p "Send anyway? ")
(error "Failed to send the message"))))))
(defun message-send-mail (&optional _) (defun message-send-mail (&optional _)
(require 'mail-utils) (require 'mail-utils)
(let* ((tembuf (message-generate-new-buffer-clone-locals " message temp")) (let* ((tembuf (message-generate-new-buffer-clone-locals " message temp"))
@ -4527,15 +4538,7 @@ This function could be useful in `message-setup-hook'."
(if news nil message-deletable-headers))) (if news nil message-deletable-headers)))
(message-generate-headers headers)) (message-generate-headers headers))
;; Check continuation headers. ;; Check continuation headers.
(message-check 'continuation-headers (message--check-continuation-headers)
(goto-char (point-min))
(while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t)
(goto-char (match-beginning 0))
(if (y-or-n-p "Fix continuation lines? ")
(insert " ")
(forward-line 1)
(unless (y-or-n-p "Send anyway? ")
(error "Failed to send the message")))))
(message--fold-long-headers) (message--fold-long-headers)
;; Let the user do all of the above. ;; Let the user do all of the above.
(run-hooks 'message-header-hook)) (run-hooks 'message-header-hook))
@ -5159,18 +5162,7 @@ Otherwise, generate and save a value for `canlock-password' first."
(if (= (length errors) 1) "this" "these") (if (= (length errors) 1) "this" "these")
(if (= (length errors) 1) "" "s") (if (= (length errors) 1) "" "s")
(mapconcat 'identity errors ", "))))))) (mapconcat 'identity errors ", ")))))))
;; Check continuation headers. (message--check-continuation-headers)
(message-check 'continuation-headers
(goto-char (point-min))
(let ((do-posting t))
(while (re-search-forward "^[^ \t\n][^ \t\n:]*[ \t\n]" nil t)
(goto-char (match-beginning 0))
(if (y-or-n-p "Fix continuation lines? ")
(insert " ")
(forward-line 1)
(unless (y-or-n-p "Send anyway? ")
(setq do-posting nil))))
do-posting))
;; Check the Newsgroups & Followup-To headers for syntax errors. ;; Check the Newsgroups & Followup-To headers for syntax errors.
(message-check 'valid-newsgroups (message-check 'valid-newsgroups
(let ((case-fold-search t) (let ((case-fold-search t)