Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents d620409f5eb8
children 1a767b41a199
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1310 1310
1311 (gnus-define-keys (gnus-summary-wash-empty-map "E" gnus-summary-wash-map) 1311 (gnus-define-keys (gnus-summary-wash-empty-map "E" gnus-summary-wash-map)
1312 "t" gnus-article-remove-trailing-blank-lines 1312 "t" gnus-article-remove-trailing-blank-lines
1313 "l" gnus-article-strip-leading-blank-lines 1313 "l" gnus-article-strip-leading-blank-lines
1314 "m" gnus-article-strip-multiple-blank-lines 1314 "m" gnus-article-strip-multiple-blank-lines
1315 "a" gnus-article-strip-blank-lines) 1315 "a" gnus-article-strip-blank-lines
1316 "s" gnus-article-strip-leading-space)
1316 1317
1317 (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map) 1318 (gnus-define-keys (gnus-summary-help-map "H" gnus-summary-mode-map)
1318 "v" gnus-version 1319 "v" gnus-version
1319 "f" gnus-summary-fetch-faq 1320 "f" gnus-summary-fetch-faq
1320 "d" gnus-summary-describe-group 1321 "d" gnus-summary-describe-group
1512 ("Washing" 1513 ("Washing"
1513 ("Remove Blanks" 1514 ("Remove Blanks"
1514 ["Leading" gnus-article-strip-leading-blank-lines t] 1515 ["Leading" gnus-article-strip-leading-blank-lines t]
1515 ["Multiple" gnus-article-strip-multiple-blank-lines t] 1516 ["Multiple" gnus-article-strip-multiple-blank-lines t]
1516 ["Trailing" gnus-article-remove-trailing-blank-lines t] 1517 ["Trailing" gnus-article-remove-trailing-blank-lines t]
1517 ["All of the above" gnus-article-strip-blank-lines t]) 1518 ["All of the above" gnus-article-strip-blank-lines t]
1519 ["Leading space" gnus-article-strip-leading-space t])
1518 ["Overstrike" gnus-article-treat-overstrike t] 1520 ["Overstrike" gnus-article-treat-overstrike t]
1519 ["Emphasis" gnus-article-emphasize t] 1521 ["Emphasis" gnus-article-emphasize t]
1520 ["Word wrap" gnus-article-fill-cited-article t] 1522 ["Word wrap" gnus-article-fill-cited-article t]
1521 ["CR" gnus-article-remove-cr t] 1523 ["CR" gnus-article-remove-cr t]
1522 ["Show X-Face" gnus-article-display-x-face t] 1524 ["Show X-Face" gnus-article-display-x-face t]
2458 kill-buffer no-display) 2460 kill-buffer no-display)
2459 "Start reading news in newsgroup GROUP. 2461 "Start reading news in newsgroup GROUP.
2460 If SHOW-ALL is non-nil, already read articles are also listed. 2462 If SHOW-ALL is non-nil, already read articles are also listed.
2461 If NO-ARTICLE is non-nil, no article is selected initially. 2463 If NO-ARTICLE is non-nil, no article is selected initially.
2462 If NO-DISPLAY, don't generate a summary buffer." 2464 If NO-DISPLAY, don't generate a summary buffer."
2465 (let (result)
2466 (while (and group
2467 (null (setq result
2468 (gnus-summary-read-group-1
2469 group show-all no-article
2470 kill-buffer no-display)))
2471 (eq gnus-auto-select-next 'quietly))
2472 (set-buffer gnus-group-buffer)
2473 (if (not (equal group (gnus-group-group-name)))
2474 (setq group (gnus-group-group-name))
2475 (setq group nil)))
2476 result))
2477
2478 (defun gnus-summary-read-group-1 (group show-all no-article
2479 kill-buffer no-display)
2463 ;; Killed foreign groups can't be entered. 2480 ;; Killed foreign groups can't be entered.
2464 (when (and (not (gnus-group-native-p group)) 2481 (when (and (not (gnus-group-native-p group))
2465 (not (gnus-gethash group gnus-newsrc-hashtb))) 2482 (not (gnus-gethash group gnus-newsrc-hashtb)))
2466 (error "Dead non-native groups can't be entered")) 2483 (error "Dead non-native groups can't be entered"))
2467 (gnus-message 5 "Retrieving newsgroup: %s..." group) 2484 (gnus-message 5 "Retrieving newsgroup: %s..." group)
2558 (run-hooks 'gnus-apply-kill-hook) 2575 (run-hooks 'gnus-apply-kill-hook)
2559 (if (and (zerop (buffer-size)) 2576 (if (and (zerop (buffer-size))
2560 (not no-display)) 2577 (not no-display))
2561 (progn 2578 (progn
2562 ;; This newsgroup is empty. 2579 ;; This newsgroup is empty.
2563 (gnus-summary-catchup-and-exit nil t) ;Without confirmations. 2580 (gnus-summary-catchup-and-exit nil t)
2564 (gnus-message 6 "No unread news") 2581 (gnus-message 6 "No unread news")
2565 (when kill-buffer 2582 (when kill-buffer
2566 (gnus-kill-or-deaden-summary kill-buffer)) 2583 (gnus-kill-or-deaden-summary kill-buffer))
2567 ;; Return nil from this function. 2584 ;; Return nil from this function.
2568 nil) 2585 nil)
2914 header level nil (gnus-article-mark article) 2931 header level nil (gnus-article-mark article)
2915 (memq article gnus-newsgroup-replied) 2932 (memq article gnus-newsgroup-replied)
2916 (memq article gnus-newsgroup-expirable) 2933 (memq article gnus-newsgroup-expirable)
2917 ;; Only insert the Subject string when it's different 2934 ;; Only insert the Subject string when it's different
2918 ;; from the previous Subject string. 2935 ;; from the previous Subject string.
2919 (unless (gnus-subject-equal 2936 (if (gnus-subject-equal
2920 (condition-case () 2937 (condition-case ()
2921 (mail-header-subject 2938 (mail-header-subject
2922 (gnus-data-header 2939 (gnus-data-header
2923 (cadr 2940 (cadr
2924 (gnus-data-find-list 2941 (gnus-data-find-list
2925 article 2942 article
2926 (gnus-data-list t))))) 2943 (gnus-data-list t)))))
2927 (error "")) 2944 (error ""))
2928 (mail-header-subject header)) 2945 (mail-header-subject header))
2929 (mail-header-subject header)) 2946 (mail-header-subject header)
2947 "")
2930 nil (cdr (assq article gnus-newsgroup-scored)) 2948 nil (cdr (assq article gnus-newsgroup-scored))
2931 (memq article gnus-newsgroup-processable)) 2949 (memq article gnus-newsgroup-processable))
2932 (when length 2950 (when length
2933 (gnus-data-update-list 2951 (gnus-data-update-list
2934 (cdr datal) (- length (- (gnus-data-pos data) (point)))))))) 2952 (cdr datal) (- length (- (gnus-data-pos data) (point))))))))
3830 ;; default score. 3848 ;; default score.
3831 (when (and (eq (cdr type) 'score) 3849 (when (and (eq (cdr type) 'score)
3832 gnus-save-score 3850 gnus-save-score
3833 list) 3851 list)
3834 (let* ((arts list) 3852 (let* ((arts list)
3835 (prev (cons nil articles)) 3853 (prev (cons nil list))
3836 (all prev)) 3854 (all prev))
3837 (while arts 3855 (while arts
3838 (if (or (not (consp (car arts))) 3856 (if (or (not (consp (car arts)))
3839 (= (cdar arts) gnus-summary-default-score)) 3857 (= (cdar arts) gnus-summary-default-score))
3840 (setcdr prev (cdr arts)) 3858 (setcdr prev (cdr arts))