Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
2191 ;; display only a single character. 2191 ;; display only a single character.
2192 2192
2193 ;; We start from the standard display table, if any. 2193 ;; We start from the standard display table, if any.
2194 (let ((table (or (copy-sequence standard-display-table) 2194 (let ((table (or (copy-sequence standard-display-table)
2195 (make-display-table))) 2195 (make-display-table)))
2196 ;; Nix out all the control chars...
2197 (i 32)) 2196 (i 32))
2197 ;; Nix out all the control chars...
2198 (while (>= (setq i (1- i)) 0) 2198 (while (>= (setq i (1- i)) 0)
2199 (aset table i [??])) 2199 (aset table i [??]))
2200 ;; ... but not newline and cr, of course. (cr is necessary for the 2200 ;; ... but not newline and cr, of course. (cr is necessary for the
2201 ;; selective display). 2201 ;; selective display).
2202 (aset table ?\n nil) 2202 (aset table ?\n nil)
2203 (aset table ?\r nil) 2203 (aset table ?\r nil)
2204 ;; We nix out any glyphs over 126 that are not set already. 2204 ;; We nix out any glyphs over 126 that are not set already.
2205 (let ((i 256)) 2205 (let ((i 256))
2206 (while (>= (setq i (1- i)) 127) 2206 (while (>= (setq i (1- i)) 127)
2207 ;; Only modify if the entry is nil. 2207 ;; Only modify if the entry is nil.
2208 (or (aref table i) 2208 (unless (aref table i)
2209 (aset table i [??])))) 2209 (aset table i [??]))))
2210 (setq buffer-display-table table))) 2210 (setq buffer-display-table table)))
2211 2211
2212 (defun gnus-summary-setup-buffer (group) 2212 (defun gnus-summary-setup-buffer (group)
2213 "Initialize summary buffer." 2213 "Initialize summary buffer."
2214 (let ((buffer (concat "*Summary " group "*"))) 2214 (let ((buffer (concat "*Summary " group "*")))
2946 (gnus-data-header 2946 (gnus-data-header
2947 (cadr 2947 (cadr
2948 (gnus-data-find-list 2948 (gnus-data-find-list
2949 article 2949 article
2950 (gnus-data-list t))))) 2950 (gnus-data-list t)))))
2951 (error "")) 2951 ;; Error on the side of excessive subjects.
2952 (error (mail-header-subject header)))
2952 (mail-header-subject header)) 2953 (mail-header-subject header))
2953 (mail-header-subject header) 2954 (mail-header-subject header)
2954 "") 2955 "")
2955 nil (cdr (assq article gnus-newsgroup-scored)) 2956 nil (cdr (assq article gnus-newsgroup-scored))
2956 (memq article gnus-newsgroup-processable)) 2957 (memq article gnus-newsgroup-processable))