[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el [lexbind] |
Date: |
Mon, 25 Oct 2004 00:47:21 -0400 |
Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.32.2.6
emacs/lisp/gnus/gnus-sum.el:1.32.2.7
*** emacs/lisp/gnus/gnus-sum.el:1.32.2.6 Wed Oct 6 05:23:53 2004
--- emacs/lisp/gnus/gnus-sum.el Mon Oct 25 04:19:42 2004
***************
*** 428,433 ****
--- 428,436 ----
(cons :value ("" "") regexp (repeat string))
(sexp :value nil))))
+ ;; FIXME: Although the custom type is `character' for the following variables,
+ ;; using multibyte characters (Latin-1, UTF-8) doesn't work. -- rs
+
(defcustom gnus-unread-mark ? ;Whitespace
"*Mark used for unread articles."
:group 'gnus-summary-marks
***************
*** 3231,3250 ****
[0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]
0 nil t 128 t nil "" nil 1)
(goto-char (point-min))
! (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
! (- (point) (point-min) 1)))))
(goto-char (point-min))
! (push (cons 'replied (and (search-forward "\201" nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
! (push (cons 'score (and (search-forward "\202" nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
! (push (cons 'download
! (and (search-forward "\203" nil t)
! (- (point) (point-min) 1)))
pos)))
(setq gnus-summary-mark-positions pos))))
--- 3234,3257 ----
[0 "" "" "05 Apr 2001 23:33:09 +0400" "" "" 0 0 "" nil]
0 nil t 128 t nil "" nil 1)
(goto-char (point-min))
! (setq pos (list (cons 'unread
! (and (search-forward
! (mm-string-as-multibyte "\200") nil t)
! (- (point) (point-min) 1)))))
(goto-char (point-min))
! (push (cons 'replied (and (search-forward
! (mm-string-as-multibyte "\201") nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
! (push (cons 'score (and (search-forward
! (mm-string-as-multibyte "\202") nil t)
(- (point) (point-min) 1)))
pos)
(goto-char (point-min))
! (push (cons 'download (and (search-forward
! (mm-string-as-multibyte "\203") nil t)
! (- (point) (point-min) 1)))
pos)))
(setq gnus-summary-mark-positions pos))))
***************
*** 6009,6016 ****
;; Remove list identifiers from subject.
(when gnus-list-identifiers
(let ((gnus-newsgroup-headers (list header)))
! (gnus-summary-remove-list-identifiers)
! (setq header (car gnus-newsgroup-headers))))
(when old-header
(mail-header-set-number header (mail-header-number old-header)))
(setq gnus-newsgroup-sparse
--- 6016,6022 ----
;; Remove list identifiers from subject.
(when gnus-list-identifiers
(let ((gnus-newsgroup-headers (list header)))
! (gnus-summary-remove-list-identifiers)))
(when old-header
(mail-header-set-number header (mail-header-number old-header)))
(setq gnus-newsgroup-sparse