From 75354d9e5001f1689c78fc0b606b364c514b2e6b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 7 Oct 2004 22:17:12 +0000 Subject: [PATCH] Submit changes forgotten yesterday. --- lisp/gnus-group.el | 3 ++- lisp/gnus-msg.el | 3 ++- lisp/gnus-sum.el | 18 +++++++++++------- lisp/message.el | 4 +++- 4 files changed, 18 insertions(+), 10 deletions(-) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 9ed15ff..02d3aea 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1077,7 +1077,8 @@ The following commands are available: (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 --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 5101576..bd75b3c 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1784,7 +1784,8 @@ The source file has to be in the Emacs load path." ;; 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)) ;; Break MIME tags purposely. diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7931d93..f6669fe 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3281,20 +3281,24 @@ buffer that was in action when the last article was fetched." "" "" 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 --git a/lisp/message.el b/lisp/message.el index 6c77352..17470ea 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4971,7 +4971,9 @@ Otherwise, generate and save a value for `canlock-password' first." 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)) -- 1.7.10.4