Commit 6c85a14f authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

message.el (message-fix-before-sending): Change options when sending non-printable characters.

shr.el (shr-add-font): Don't put the font properties on the newline or the indentation.
parent 514d9128
2010-10-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* shr.el (shr-add-font): Don't put the font properties on the newline
or the indentation.
* message.el (message-fix-before-sending): Change options when sending
non-printable characters.
* gnus.el (gnus-update-message-archive-method): Change the default to
monthly outgoing groups.
 
......
......@@ -4206,7 +4206,7 @@ conformance."
(?r ,(format
"Replace non-printable characters with \"%s\" and send"
message-replacement-char))
(?i "Ignore non-printable characters and send")
(?s "Send as is without removing anything")
(?e "Continue editing"))))
(if (eq choice ?e)
(error "Non-printable characters"))
......
......@@ -318,9 +318,20 @@ redirects somewhere else."
(dolist (type types)
(shr-add-font (or shr-start (point)) (point) type))))
;; Add an overlay in the region, but avoid putting the font properties
;; on blank text at the start of the line, and the newline at the end,
;; to avoid ugliness.
(defun shr-add-font (start end type)
(let ((overlay (make-overlay start end)))
(overlay-put overlay 'face type)))
(save-excursion
(goto-char start)
(while (< (point) end)
(when (bolp)
(skip-chars-forward " "))
(let ((overlay (make-overlay (point) (min (line-end-position) end))))
(overlay-put overlay 'face type))
(if (< (line-end-position) end)
(forward-line 1)
(goto-char end)))))
(defun shr-browse-url ()
"Browse the URL under point."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment