mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 07:20:28 -08:00
Code Issues Projects Releases Wiki Activity

Merge changes made in Gnus trunk.

Browse source 
gnus.texi (Summary Buffer Lines): gnus-summary-user-date-format-alist does not exist.
 (Sorting the Summary Buffer): More about sorting threads.
shr.el: Add shr-link face for links.
 (shr-urlify): Use it.
registry.el (registry-insert): Make error message more helpful.
This commit is contained in:
Gnus developers 2011-05-03 22:41:28 +00:00 • committed by Katsumi Yamaoka
parent abe95abbaf
commit c2f51e23ab
5 changed files with 25 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
doc/misc/ChangeLog
View file

@ -1,3 +1,9 @@
2011-05-03 Peter Münster <pmlists@free.fr>
* gnus.texi (Summary Buffer Lines):
gnus-summary-user-date-format-alist does not exist.
(Sorting the Summary Buffer): More about sorting threads.
2011-04-25 Michael Albinus <michael.albinus@gmx.de> 2011-04-25 Michael Albinus <michael.albinus@gmx.de>
* trampver.texi: Update release number. * trampver.texi: Update release number.

6
doc/misc/gnus.texi
View file

@ -4953,7 +4953,7 @@ Download mark.
Desired cursor position (instead of after first colon). Desired cursor position (instead of after first colon).
@item &user-date; @item &user-date;
Age sensitive date format. Various date format is defined in Age sensitive date format. Various date format is defined in
@code{gnus-summary-user-date-format-alist}. @code{gnus-user-date-format-alist}.
@item u @item u
User defined specifier. The next character in the format string should User defined specifier. The next character in the format string should
be a letter. Gnus will call the function be a letter. Gnus will call the function
@ -7340,7 +7340,9 @@ predicate functions include @code{gnus-thread-sort-by-number},
Each function takes two threads and returns non-@code{nil} if the first Each function takes two threads and returns non-@code{nil} if the first
thread should be sorted before the other. Note that sorting really is thread should be sorted before the other. Note that sorting really is
normally done by looking only at the roots of each thread. normally done by looking only at the roots of each thread. Exceptions
to this rule are @code{gnus-thread-sort-by-most-recent-number} and
@code{gnus-thread-sort-by-most-recent-date}.
If you use more than one function, the primary sort key should be the If you use more than one function, the primary sort key should be the
last function in the list. You should probably always include last function in the list. You should probably always include

7
lisp/gnus/ChangeLog
View file

@ -1,3 +1,10 @@
2011-05-03 Teodor Zlatanov <tzz@lifelogs.com>
* shr.el: Add shr-link face for links.
(shr-urlify): Use it.
* registry.el (registry-insert): Make error message more helpful.
2011-05-02 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-05-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-html.el (gnus-html-schedule-image-fetching): Use * gnus-html.el (gnus-html-schedule-image-fetching): Use

2
lisp/gnus/registry.el
View file

@ -272,7 +272,7 @@ Errors out if the key exists already."
(assert (< (registry-size db) (assert (< (registry-size db)
(oref db :max-hard)) (oref db :max-hard))
nil nil
"max-hard size limit reached") "registry max-hard size limit reached")
;; store the entry ;; store the entry
(puthash key entry (oref db :data)) (puthash key entry (oref db :data))

7
lisp/gnus/shr.el
View file

@ -91,6 +91,12 @@ cid: URL as the argument.")
"Font for <s> elements." "Font for <s> elements."
:group 'shr) :group 'shr)
(defface shr-link '((t (:underline t)
(:foreground "yellow")
(:background "black")))
"Font for <s> elements."
:group 'shr)
;;; Internal variables. ;;; Internal variables.
(defvar shr-folding-mode nil) (defvar shr-folding-mode nil)
@ -591,6 +597,7 @@ START, and END. Note that START and END should be merkers."
:help-echo (if title (format "%s (%s)" url title) url) :help-echo (if title (format "%s (%s)" url title) url)
:keymap shr-map :keymap shr-map
url) url)
(put-text-property start (point) 'face 'shr-link)
(put-text-property start (point) 'shr-url url)) (put-text-property start (point) 'shr-url url))
(defun shr-encode-url (url) (defun shr-encode-url (url)