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

Merge changes made in No Gnus

Browse source 
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.
This commit is contained in:
Lars Ingebrigtsen 2012-02-07 22:17:11 +00:00 • committed by Katsumi Yamaoka
parent 5e0d957fe0
commit 7c4bbb6992
4 changed files with 34 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/misc/ChangeLog
View file

@ -1,3 +1,8 @@
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

12
doc/misc/gnus.texi
View file

@ -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.

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
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.

21
lisp/gnus/shr.el
View file

@ -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.