Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
1280 "f" gnus-article-display-x-face 1280 "f" gnus-article-display-x-face
1281 "l" gnus-summary-stop-page-breaking 1281 "l" gnus-summary-stop-page-breaking
1282 "r" gnus-summary-caesar-message 1282 "r" gnus-summary-caesar-message
1283 "t" gnus-article-hide-headers 1283 "t" gnus-article-hide-headers
1284 "v" gnus-summary-verbose-headers 1284 "v" gnus-summary-verbose-headers
1285 "m" gnus-summary-toggle-mime) 1285 "m" gnus-summary-toggle-mime
1286 "h" gnus-article-treat-html)
1286 1287
1287 (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map) 1288 (gnus-define-keys (gnus-summary-wash-hide-map "W" gnus-summary-wash-map)
1288 "a" gnus-article-hide 1289 "a" gnus-article-hide
1289 "h" gnus-article-hide-headers 1290 "h" gnus-article-hide-headers
1290 "b" gnus-article-hide-boring-headers 1291 "b" gnus-article-hide-boring-headers
2911 (gnus-delete-line) 2912 (gnus-delete-line)
2912 (gnus-summary-insert-line 2913 (gnus-summary-insert-line
2913 header level nil (gnus-article-mark article) 2914 header level nil (gnus-article-mark article)
2914 (memq article gnus-newsgroup-replied) 2915 (memq article gnus-newsgroup-replied)
2915 (memq article gnus-newsgroup-expirable) 2916 (memq article gnus-newsgroup-expirable)
2916 (mail-header-subject header) 2917 ;; Only insert the Subject string when it's different
2918 ;; from the previous Subject string.
2919 (unless (gnus-subject-equal
2920 (condition-case ()
2921 (mail-header-subject
2922 (gnus-data-header
2923 (cadr
2924 (gnus-data-find-list
2925 article
2926 (gnus-data-list t)))))
2927 (error ""))
2928 (mail-header-subject header))
2929 (mail-header-subject header))
2917 nil (cdr (assq article gnus-newsgroup-scored)) 2930 nil (cdr (assq article gnus-newsgroup-scored))
2918 (memq article gnus-newsgroup-processable)) 2931 (memq article gnus-newsgroup-processable))
2919 (when length 2932 (when length
2920 (gnus-data-update-list 2933 (gnus-data-update-list
2921 (cdr datal) (- length (- (gnus-data-pos data) (point)))))))) 2934 (cdr datal) (- length (- (gnus-data-pos data) (point))))))))
3866 (if (and gnus-current-headers 3879 (if (and gnus-current-headers
3867 (vectorp gnus-current-headers)) 3880 (vectorp gnus-current-headers))
3868 (gnus-mode-string-quote 3881 (gnus-mode-string-quote
3869 (mail-header-subject gnus-current-headers)) 3882 (mail-header-subject gnus-current-headers))
3870 "")) 3883 ""))
3871 max-len 3884 bufname-length max-len
3872 gnus-tmp-header);; passed as argument to any user-format-funcs 3885 gnus-tmp-header);; passed as argument to any user-format-funcs
3873 (setq mode-string (eval mformat)) 3886 (setq mode-string (eval mformat))
3887 (setq bufname-length (if (string-match "%b" mode-string)
3888 (- (length
3889 (buffer-name
3890 (if (eq where 'summary)
3891 nil
3892 (get-buffer gnus-article-buffer))))
3893 2)
3894 0))
3874 (setq max-len (max 4 (if gnus-mode-non-string-length 3895 (setq max-len (max 4 (if gnus-mode-non-string-length
3875 (- (window-width) 3896 (- (window-width)
3876 gnus-mode-non-string-length 3897 gnus-mode-non-string-length
3877 (if (string-match "%%b" mode-string) 3898 bufname-length)
3878 (length (buffer-name))
3879 0))
3880 (length mode-string)))) 3899 (length mode-string))))
3881 ;; We might have to chop a bit of the string off... 3900 ;; We might have to chop a bit of the string off...
3882 (when (> (length mode-string) max-len) 3901 (when (> (length mode-string) max-len)
3883 (setq mode-string 3902 (setq mode-string
3884 (concat (gnus-truncate-string mode-string (- max-len 3)) 3903 (concat (gnus-truncate-string mode-string (- max-len 3))
6972 (let (gnus-mark-article-hook) 6991 (let (gnus-mark-article-hook)
6973 (gnus-summary-select-article) 6992 (gnus-summary-select-article)
6974 (save-excursion 6993 (save-excursion
6975 (set-buffer gnus-article-buffer) 6994 (set-buffer gnus-article-buffer)
6976 (save-restriction 6995 (save-restriction
6977 (goto-char (point-min)) 6996 (gnus-narrow-to-body)
6978 (search-forward "\n\n")
6979 (narrow-to-region (point-min) (point))
6980 (message "This message would go to %s" 6997 (message "This message would go to %s"
6981 (mapconcat 'car (nnmail-article-group 'identity) ", ")))))) 6998 (mapconcat 'car (nnmail-article-group 'identity) ", "))))))
6982 6999
6983 ;; Summary marking commands. 7000 ;; Summary marking commands.
6984 7001