Mercurial > hg > xemacs
comparison my-news.el @ 7:5f3a215f12eb
*** empty log message ***
| author | ht |
|---|---|
| date | Mon, 29 Aug 2005 08:51:09 +0100 |
| parents | |
| children | 7b2c4ed36302 |
comparison
equal
deleted
inserted
replaced
| 6:dccf9e53f179 | 7:5f3a215f12eb |
|---|---|
| 1 ;; Last edited: Wed Aug 25 14:10:36 1999 | |
| 2 | |
| 3 ;(site-caseq (edin (require 'ccs-gnus))) | |
| 4 | |
| 5 ; mix-spool stuff | |
| 6 | |
| 7 (load "gnus" nil t) | |
| 8 ; (debug-on-entry 'gnus-start-news-server) | |
| 9 (setq gnus-nntp-server nil) | |
| 10 ; | |
| 11 | |
| 12 | |
| 13 (setq gnus-article-save-directory "d:/mail") | |
| 14 | |
| 15 ;;; fixup clarinews | |
| 16 ;(autoload 'gnus-clarinews-fun "clari-clean" "Clean ClariNews articles" t) | |
| 17 ;(add-hook 'gnus-article-prepare-hook 'gnus-clarinews-fun) | |
| 18 | |
| 19 | |
| 20 (defun gnus-Subject-sort-by-subject-and-date (reverse) | |
| 21 "Sort subject display buffer by subject alphabetically. `Re:'s are ignored. | |
| 22 If case-fold-search is non-nil, case of letters is ignored. Date is used | |
| 23 if subjects are equal | |
| 24 Argument REVERSE means reverse order." | |
| 25 (interactive "P") | |
| 26 (gnus-summary-sort-summary | |
| 27 (function | |
| 28 (lambda (a b) | |
| 29 (let ((s-a (gnus-trim-simplify-subject (nntp-header-subject a))) | |
| 30 (s-b (gnus-trim-simplify-subject (nntp-header-subject b))) | |
| 31 ) | |
| 32 (or (gnus-string-lessp s-a s-b) | |
| 33 (and (gnus-string-equal s-a s-b) | |
| 34 (gnus-date-lessp (nntp-header-date a) | |
| 35 (nntp-header-date b))))))) | |
| 36 reverse | |
| 37 )) | |
| 38 | |
| 39 ;(require 'util-mde) ; for string-replace-regexp-2 | |
| 40 (defun gnus-trim-simplify-subject (text) | |
| 41 "call gnus-simplify-subject and remove leading blanks" | |
| 42 (if text | |
| 43 (gnus-simplify-subject | |
| 44 (string-replace-regexp-2 | |
| 45 (gnus-simplify-subject text t) | |
| 46 "^\\s-+" | |
| 47 "") | |
| 48 t) | |
| 49 "")) | |
| 50 | |
| 51 (defun gnus-string-equal (a b) | |
| 52 "Return T if first arg string is equal than second in lexicographic order. | |
| 53 If case-fold-search is non-nil, case of letters is ignored." | |
| 54 (if case-fold-search | |
| 55 (string-equal (downcase a) (downcase b)) (string-equal a b))) | |
| 56 | |
| 57 (defun gnus-Group-update-and-vanish () | |
| 58 "update newsrc and restore config pre-group selection" | |
| 59 (interactive) | |
| 60 (gnus-group-force-update) | |
| 61 (if gnus-pre-config | |
| 62 (set-window-configuration gnus-pre-config)) | |
| 63 ; (setq gnus-pre-config nil) | |
| 64 ) | |
| 65 | |
| 66 (provide 'my-news) |