emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el [emacs-unicode-2]
Date: Thu, 14 Oct 2004 05:17:55 -0400

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.38.6.7 
emacs/lisp/gnus/gnus-sum.el:1.38.6.8
*** emacs/lisp/gnus/gnus-sum.el:1.38.6.7        Mon Oct  4 01:04:18 2004
--- emacs/lisp/gnus/gnus-sum.el Thu Oct 14 08:50:05 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]