/[emacs]/emacs/lisp/gnus/gnus-sum.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-sum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38.6.7 by miles, Mon Oct 4 01:04:18 2004 UTC revision 1.38.6.8 by miles, Thu Oct 14 08:50:05 2004 UTC
# Line 428  this variable specifies group names." Line 428  this variable specifies group names."
428                           (cons :value ("" "") regexp (repeat string))                           (cons :value ("" "") regexp (repeat string))
429                           (sexp :value nil))))                           (sexp :value nil))))
430    
431    ;; FIXME: Although the custom type is `character' for the following variables,
432    ;; using multibyte characters (Latin-1, UTF-8) doesn't work.  -- rs
433    
434  (defcustom gnus-unread-mark ?           ;Whitespace  (defcustom gnus-unread-mark ?           ;Whitespace
435    "*Mark used for unread articles."    "*Mark used for unread articles."
436    :group 'gnus-summary-marks    :group 'gnus-summary-marks
# Line 3231  buffer that was in action when the last Line 3234  buffer that was in action when the last
3234             [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]             [0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]
3235             0 nil t 128 t nil "" nil 1)             0 nil t 128 t nil "" nil 1)
3236            (goto-char (point-min))            (goto-char (point-min))
3237            (setq pos (list (cons 'unread (and (search-forward "\200" nil t)            (setq pos (list (cons 'unread
3238                                               (- (point) (point-min) 1)))))                                  (and (search-forward
3239                                          (mm-string-as-multibyte "\200") nil t)
3240                                         (- (point) (point-min) 1)))))
3241            (goto-char (point-min))            (goto-char (point-min))
3242            (push (cons 'replied (and (search-forward "\201" nil t)            (push (cons 'replied (and (search-forward
3243                                         (mm-string-as-multibyte "\201") nil t)
3244                                      (- (point) (point-min) 1)))                                      (- (point) (point-min) 1)))
3245                  pos)                  pos)
3246            (goto-char (point-min))            (goto-char (point-min))
3247            (push (cons 'score (and (search-forward "\202" nil t)            (push (cons 'score (and (search-forward
3248                                       (mm-string-as-multibyte "\202") nil t)
3249                                    (- (point) (point-min) 1)))                                    (- (point) (point-min) 1)))
3250                  pos)                  pos)
3251            (goto-char (point-min))            (goto-char (point-min))
3252            (push (cons 'download            (push (cons 'download (and (search-forward
3253                        (and (search-forward "\203" nil t)                                        (mm-string-as-multibyte "\203") nil t)
3254                             (- (point) (point-min) 1)))                                       (- (point) (point-min) 1)))
3255                  pos)))                  pos)))
3256        (setq gnus-summary-mark-positions pos))))        (setq gnus-summary-mark-positions pos))))
3257    
# Line 6009  the subject line on." Line 6016  the subject line on."
6016        ;; Remove list identifiers from subject.        ;; Remove list identifiers from subject.
6017        (when gnus-list-identifiers        (when gnus-list-identifiers
6018          (let ((gnus-newsgroup-headers (list header)))          (let ((gnus-newsgroup-headers (list header)))
6019            (gnus-summary-remove-list-identifiers)            (gnus-summary-remove-list-identifiers)))
           (setq header (car gnus-newsgroup-headers))))  
6020        (when old-header        (when old-header
6021          (mail-header-set-number header (mail-header-number old-header)))          (mail-header-set-number header (mail-header-number old-header)))
6022        (setq gnus-newsgroup-sparse        (setq gnus-newsgroup-sparse

Legend:
Removed from v.1.38.6.7  
changed lines
  Added in v.1.38.6.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26