Commit 7c4bbb69 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka

Merge changes made in No Gnus

gnus.texi (Mail Source Specifiers): Add a pop3 via an SSH tunnel example (modified from an example by Michael Albinus).
shr.el (shr-remove-trailing-whitespace): Don't strip whitespace from lines that are narrower than the window width.  Otherwise background "blocks" will look less readable.
parent 5e0d957f
2012-02-07 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Mail Source Specifiers): Add a pop3 via an SSH tunnel
example (modified from an example by Michael Albinus).
2012-01-30 Philipp Haselwarter <philipp.haselwarter@gmx.de> (tiny change)
* gnus.texi (Agent Basics): Fix outdated description of
......
......@@ -14751,6 +14751,18 @@ corresponding keywords.
A script to be run before fetching the mail. The syntax is the same as
the @code{:program} keyword. This can also be a function to be run.
One popular way to use this is to set up an SSH tunnel to access the
@acronym{POP} server. Here's an example:
@lisp
(pop :server "127.0.0.1"
:port 1234
:user "foo"
:password "secret"
:prescript
"nohup ssh -f -L 1234:pop.server:110 remote.host sleep 3600 &")
@end lisp
@item :postscript
A script to be run after fetching the mail. The syntax is the same as
the @code{:program} keyword. This can also be a function to be run.
2012-02-07 Lars Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-remove-trailing-whitespace): Don't strip whitespace from
lines that are narrower than the window width. Otherwise background
"blocks" will look less readable.
2012-02-07 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-show-thread): Revert last two changes.
......
......@@ -153,16 +153,17 @@ DOM should be a parse tree as generated by
(shr-remove-trailing-whitespace start (point))))
(defun shr-remove-trailing-whitespace (start end)
(save-restriction
(narrow-to-region start end)
(delete-trailing-whitespace)
(goto-char start)
(while (not (eobp))
(end-of-line)
(dolist (overlay (overlays-at (point)))
(when (overlay-get overlay 'before-string)
(overlay-put overlay 'before-string nil)))
(forward-line 1))))
(let ((width (window-width)))
(save-restriction
(narrow-to-region start end)
(goto-char start)
(while (not (eobp))
(end-of-line)
(when (> (current-column) width)
(dolist (overlay (overlays-at (point)))
(when (overlay-get overlay 'before-string)
(overlay-put overlay 'before-string nil))))
(forward-line 1)))))
(defun shr-copy-url ()
"Copy the URL under point to the kill ring.
......
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