Mercurial > emacs
comparison lisp/gnus/gnus-util.el @ 79143:f6c37512dd9e
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 257-258)
- Merge from emacs--rel--22
- Update from CVS
2007-10-15 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-util.el (gnus-string<): New function.
* lisp/gnus/gnus-sum.el (gnus-article-sort-by-author)
(gnus-article-sort-by-subject): Use it.
2007-10-15 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-win.el (gnus-configure-windows): Focus on the frame for which
the frame-focus tag is set in gnus-buffer-configuration.
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-128
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 18 Oct 2007 21:09:02 +0000 |
parents | f0a07da7dd45 |
children | 1cb31606209f a3c27999decb 1251cabc40b7 |
comparison
equal
deleted
inserted
replaced
79142:4fab4ac447b1 | 79143:f6c37512dd9e |
---|---|
287 (nnheader-replace-chars-in-string group ?/ ?.)) | 287 (nnheader-replace-chars-in-string group ?/ ?.)) |
288 | 288 |
289 (defun gnus-string> (s1 s2) | 289 (defun gnus-string> (s1 s2) |
290 (not (or (string< s1 s2) | 290 (not (or (string< s1 s2) |
291 (string= s1 s2)))) | 291 (string= s1 s2)))) |
292 | |
293 (defun gnus-string< (s1 s2) | |
294 "Return t if first arg string is less than second in lexicographic order. | |
295 Case is significant if and only if `case-fold-search' is nil. | |
296 Symbols are also allowed; their print names are used instead." | |
297 (if case-fold-search | |
298 (string-lessp (downcase (if (symbolp s1) (symbol-name s1) s1)) | |
299 (downcase (if (symbolp s2) (symbol-name s2) s2))) | |
300 (string-lessp s1 s2))) | |
292 | 301 |
293 ;;; Time functions. | 302 ;;; Time functions. |
294 | 303 |
295 (defun gnus-file-newer-than (file date) | 304 (defun gnus-file-newer-than (file date) |
296 (let ((fdate (nth 5 (file-attributes file)))) | 305 (let ((fdate (nth 5 (file-attributes file)))) |