Commit c2f51e23 authored by Gnus developers's avatar Gnus developers Committed by Katsumi Yamaoka

Merge changes made in Gnus trunk.

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.
parent abe95abb
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>
* trampver.texi: Update release number.
......
......@@ -4953,7 +4953,7 @@ Download mark.
Desired cursor position (instead of after first colon).
@item &user-date;
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
User defined specifier. The next character in the format string should
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
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
last function in the list. You should probably always include
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>
* gnus-html.el (gnus-html-schedule-image-fetching): Use
......
......@@ -272,7 +272,7 @@ Errors out if the key exists already."
(assert (< (registry-size db)
(oref db :max-hard))
nil
"max-hard size limit reached")
"registry max-hard size limit reached")
;; store the entry
(puthash key entry (oref db :data))
......
......@@ -91,6 +91,12 @@ cid: URL as the argument.")
"Font for <s> elements."
:group 'shr)
(defface shr-link '((t (:underline t)
(:foreground "yellow")
(:background "black")))
"Font for <s> elements."
:group 'shr)
;;; Internal variables.
(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)
:keymap shr-map
url)
(put-text-property start (point) 'face 'shr-link)
(put-text-property start (point) 'shr-url url))
(defun shr-encode-url (url)
......
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