From cc7fd62ed5abce6083f7a6566579fee26469aae5 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 6 Oct 2004 22:52:26 +0000 Subject: [PATCH] * 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 mm-string-as-multibyte instead of string-as-multibyte. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-group.el | 2 +- lisp/gnus-msg.el | 2 +- lisp/gnus-sum.el | 8 ++++---- lisp/message.el | 2 +- 5 files changed, 15 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6ba3696e9..6450aa365 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-10-06 Katsumi Yamaoka + + * 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 mm-string-as-multibyte instead + of string-as-multibyte. + 2004-10-05 Juri Linkov * gnus-group.el (gnus-update-group-mark-positions): diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 25ffac29f..9fed125a9 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1068,7 +1068,7 @@ The following commands are available: (goto-char (point-min)) (setq gnus-group-mark-positions (list (cons 'process (and (search-forward - (string-as-multibyte "\200") nil t) + (mm-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 e9cee2cb2..ecba62dff 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1532,7 +1532,7 @@ 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 (string-as-multibyte + (while (re-search-forward (mm-string-as-multibyte "[\000-\010\013-\037\200-\237]") nil t) (replace-match (format "\\%03o" (string-to-char (match-string 0))) t t)))) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 423d1426e..8a809b44b 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3297,21 +3297,21 @@ buffer that was in action when the last article was fetched." (goto-char (point-min)) (setq pos (list (cons 'unread (and (search-forward - (string-as-multibyte "\200") nil t) + (mm-string-as-multibyte "\200") nil t) (- (point) (point-min) 1))))) (goto-char (point-min)) (push (cons 'replied (and (search-forward - (string-as-multibyte "\201") nil t) + (mm-string-as-multibyte "\201") nil t) (- (point) (point-min) 1))) pos) (goto-char (point-min)) (push (cons 'score (and (search-forward - (string-as-multibyte "\202") nil t) + (mm-string-as-multibyte "\202") nil t) (- (point) (point-min) 1))) pos) (goto-char (point-min)) (push (cons 'download (and (search-forward - (string-as-multibyte "\203") nil t) + (mm-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 be9564ec9..cdf21bb32 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4452,7 +4452,7 @@ Otherwise, generate and save a value for `canlock-password' first." ;; Check for control characters. (message-check 'control-chars (if (re-search-forward - (string-as-multibyte "[\000-\007\013\015-\032\034-\037\200-\237]") + (mm-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? ") -- 2.25.1