# HG changeset patch # User Juri Linkov # Date 1096931891 0 # Node ID 3381cb76bac30d414b1a246161c9716043b41131 # Parent 360e84818bf3109264ff74e744309b45aebd2358 * gnus-group.el (gnus-update-group-mark-positions): * gnus-sum.el (gnus-update-summary-mark-positions): * message.el (message-check-news-body-syntax): * gnus-msg.el (gnus-debug): Use `string-as-multibyte' to convert 8-bit unibyte values to a multibyte string for search functions. diff -r 360e84818bf3 -r 3381cb76bac3 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Mon Oct 04 23:00:13 2004 +0000 +++ b/lisp/gnus/ChangeLog Mon Oct 04 23:18:11 2004 +0000 @@ -1,3 +1,11 @@ +2004-10-05 Juri Linkov + + * gnus-group.el (gnus-update-group-mark-positions): + * gnus-sum.el (gnus-update-summary-mark-positions): + * message.el (message-check-news-body-syntax): + * gnus-msg.el (gnus-debug): Use `string-as-multibyte' to convert + 8-bit unibyte values to a multibyte string for search functions. + 2004-10-01 Katsumi Yamaoka * gnus-sum.el (gnus-summary-toggle-header): Make it work even if diff -r 360e84818bf3 -r 3381cb76bac3 lisp/gnus/gnus-group.el --- a/lisp/gnus/gnus-group.el Mon Oct 04 23:00:13 2004 +0000 +++ b/lisp/gnus/gnus-group.el Mon Oct 04 23:18:11 2004 +0000 @@ -1046,7 +1046,8 @@ (gnus-group-insert-group-line "dummy.group" 0 nil 0 nil) (goto-char (point-min)) (setq gnus-group-mark-positions - (list (cons 'process (and (search-forward "\200" nil t) + (list (cons 'process (and (search-forward + (string-as-multibyte "\200") nil t) (- (point) 2)))))))) (defun gnus-mouse-pick-group (e) diff -r 360e84818bf3 -r 3381cb76bac3 lisp/gnus/gnus-msg.el --- a/lisp/gnus/gnus-msg.el Mon Oct 04 23:00:13 2004 +0000 +++ b/lisp/gnus/gnus-msg.el Mon Oct 04 23:18:11 2004 +0000 @@ -1534,7 +1534,8 @@ ;; Remove any control chars - they seem to cause trouble for some ;; mailers. (Byte-compiled output from the stuff above.) (goto-char point) - (while (re-search-forward "[\000-\010\013-\037\200-\237]" nil t) + (while (re-search-forward (string-as-multibyte + "[\000-\010\013-\037\200-\237]") nil t) (replace-match (format "\\%03o" (string-to-char (match-string 0))) t t)))) diff -r 360e84818bf3 -r 3381cb76bac3 lisp/gnus/gnus-sum.el --- a/lisp/gnus/gnus-sum.el Mon Oct 04 23:00:13 2004 +0000 +++ b/lisp/gnus/gnus-sum.el Mon Oct 04 23:18:11 2004 +0000 @@ -3231,20 +3231,24 @@ [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))))) + (setq pos (list (cons 'unread + (and (search-forward + (string-as-multibyte "\200") nil t) + (- (point) (point-min) 1))))) (goto-char (point-min)) - (push (cons 'replied (and (search-forward "\201" nil t) + (push (cons 'replied (and (search-forward + (string-as-multibyte "\201") nil t) (- (point) (point-min) 1))) pos) (goto-char (point-min)) - (push (cons 'score (and (search-forward "\202" nil t) + (push (cons 'score (and (search-forward + (string-as-multibyte "\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))) + (push (cons 'download (and (search-forward + (string-as-multibyte "\203") nil t) + (- (point) (point-min) 1))) pos))) (setq gnus-summary-mark-positions pos)))) diff -r 360e84818bf3 -r 3381cb76bac3 lisp/gnus/message.el --- a/lisp/gnus/message.el Mon Oct 04 23:00:13 2004 +0000 +++ b/lisp/gnus/message.el Mon Oct 04 23:18:11 2004 +0000 @@ -4399,7 +4399,9 @@ nil)))) ;; Check for control characters. (message-check 'control-chars - (if (re-search-forward "[\000-\007\013\015-\032\034-\037\200-\237]" nil t) + (if (re-search-forward + (string-as-multibyte "[\000-\007\013\015-\032\034-\037\200-\237]") + nil t) (y-or-n-p "The article contains control characters. Really post? ") t))