Mercurial > emacs
comparison lisp/gnus/gnus-group.el @ 57321:3381cb76bac3
* 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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 04 Oct 2004 23:18:11 +0000 |
| parents | 497f0d2ca551 |
| children | ef5d2ed6459e |
comparison
equal
deleted
inserted
replaced
| 57320:360e84818bf3 | 57321:3381cb76bac3 |
|---|---|
| 1044 (gnus-set-active "dummy.group" '(0 . 0)) | 1044 (gnus-set-active "dummy.group" '(0 . 0)) |
| 1045 (gnus-set-work-buffer) | 1045 (gnus-set-work-buffer) |
| 1046 (gnus-group-insert-group-line "dummy.group" 0 nil 0 nil) | 1046 (gnus-group-insert-group-line "dummy.group" 0 nil 0 nil) |
| 1047 (goto-char (point-min)) | 1047 (goto-char (point-min)) |
| 1048 (setq gnus-group-mark-positions | 1048 (setq gnus-group-mark-positions |
| 1049 (list (cons 'process (and (search-forward "\200" nil t) | 1049 (list (cons 'process (and (search-forward |
| 1050 (string-as-multibyte "\200") nil t) | |
| 1050 (- (point) 2)))))))) | 1051 (- (point) 2)))))))) |
| 1051 | 1052 |
| 1052 (defun gnus-mouse-pick-group (e) | 1053 (defun gnus-mouse-pick-group (e) |
| 1053 "Enter the group under the mouse pointer." | 1054 "Enter the group under the mouse pointer." |
| 1054 (interactive "e") | 1055 (interactive "e") |