Mercurial > emacs
comparison lisp/gnus/gnus-srvr.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 06ab5586085a |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 136 "D" gnus-server-deny-server | 136 "D" gnus-server-deny-server |
| 137 "R" gnus-server-remove-denials | 137 "R" gnus-server-remove-denials |
| 138 | 138 |
| 139 "n" next-line | 139 "n" next-line |
| 140 "p" previous-line | 140 "p" previous-line |
| 141 | 141 |
| 142 "g" gnus-server-regenerate-server | 142 "g" gnus-server-regenerate-server |
| 143 | 143 |
| 144 "\C-c\C-i" gnus-info-find-node | 144 "\C-c\C-i" gnus-info-find-node |
| 145 "\C-c\C-b" gnus-bug)) | 145 "\C-c\C-b" gnus-bug)) |
| 146 | 146 |
| 605 (set-buffer nntp-server-buffer) | 605 (set-buffer nntp-server-buffer) |
| 606 (let ((cur (current-buffer))) | 606 (let ((cur (current-buffer))) |
| 607 (goto-char (point-min)) | 607 (goto-char (point-min)) |
| 608 (unless (string= gnus-ignored-newsgroups "") | 608 (unless (string= gnus-ignored-newsgroups "") |
| 609 (delete-matching-lines gnus-ignored-newsgroups)) | 609 (delete-matching-lines gnus-ignored-newsgroups)) |
| 610 (while (not (eobp)) | 610 (while (not (eobp)) |
| 611 (ignore-errors | 611 (ignore-errors |
| 612 (push (cons | 612 (push (cons |
| 613 (if (eq (char-after) ?\") | 613 (if (eq (char-after) ?\") |
| 614 (read cur) | 614 (read cur) |
| 615 (let ((p (point)) (name "")) | 615 (let ((p (point)) (name "")) |
| 616 (skip-chars-forward "^ \t\\\\") | 616 (skip-chars-forward "^ \t\\\\") |
| 617 (setq name (buffer-substring p (point))) | 617 (setq name (buffer-substring p (point))) |
| 756 (gnus-group-change-level | 756 (gnus-group-change-level |
| 757 (list t group gnus-level-default-subscribed | 757 (list t group gnus-level-default-subscribed |
| 758 nil nil (if (gnus-server-equal | 758 nil nil (if (gnus-server-equal |
| 759 gnus-browse-current-method "native") | 759 gnus-browse-current-method "native") |
| 760 nil | 760 nil |
| 761 (gnus-method-simplify | 761 (gnus-method-simplify |
| 762 gnus-browse-current-method))) | 762 gnus-browse-current-method))) |
| 763 gnus-level-default-subscribed gnus-level-killed | 763 gnus-level-default-subscribed gnus-level-killed |
| 764 (and (car (nth 1 gnus-newsrc-alist)) | 764 (and (car (nth 1 gnus-newsrc-alist)) |
| 765 (gnus-gethash (car (nth 1 gnus-newsrc-alist)) | 765 (gnus-gethash (car (nth 1 gnus-newsrc-alist)) |
| 766 gnus-newsrc-hashtb)) | 766 gnus-newsrc-hashtb)) |