mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* gnus-group.el (gnus-update-group-mark-positions):

Browse source 
* 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.
This commit is contained in:
Juri Linkov 2004-10-04 23:18:11 +00:00
parent 5086e75d2a
commit 7c3bb5a5db
5 changed files with 26 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2004-10-05 Juri Linkov <juri@jurta.org>
* 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 <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-toggle-header): Make it work even if

3
lisp/gnus/gnus-group.el
View file

@ -1046,7 +1046,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)

3
lisp/gnus/gnus-msg.el
View file

@ -1534,7 +1534,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))))

18
lisp/gnus/gnus-sum.el
View file

@ -3231,20 +3231,24 @@ buffer that was in action when the last article was fetched."
[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))))

4
lisp/gnus/message.el
View file

@ -4399,7 +4399,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))