1046 |
(gnus-group-insert-group-line "dummy.group" 0 nil 0 nil) |
(gnus-group-insert-group-line "dummy.group" 0 nil 0 nil) |
1047 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1048 |
(setq gnus-group-mark-positions |
(setq gnus-group-mark-positions |
1049 |
(list (cons 'process (and (search-forward "\200" nil t) |
(list (cons 'process (and (search-forward |
1050 |
|
(mm-string-as-multibyte "\200") nil t) |
1051 |
(- (point) 2)))))))) |
(- (point) 2)))))))) |
1052 |
|
|
1053 |
(defun gnus-mouse-pick-group (e) |
(defun gnus-mouse-pick-group (e) |