Mercurial > emacs
comparison lisp/gnus/gnus-group.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Dec 2007 05:08:49 +0000 |
| parents | 53108e6cea98 cdbb1d6ce433 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
|---|---|
| 24 ;; Boston, MA 02110-1301, USA. | 24 ;; Boston, MA 02110-1301, USA. |
| 25 | 25 |
| 26 ;;; Commentary: | 26 ;;; Commentary: |
| 27 | 27 |
| 28 ;;; Code: | 28 ;;; Code: |
| 29 | |
| 30 ;; For Emacs < 22.2. | |
| 31 (eval-and-compile | |
| 32 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | |
| 29 | 33 |
| 30 (eval-when-compile | 34 (eval-when-compile |
| 31 (require 'cl)) | 35 (require 'cl)) |
| 32 (defvar tool-bar-mode) | 36 (defvar tool-bar-mode) |
| 33 | 37 |
| 3002 (gnus-group-make-group | 3006 (gnus-group-make-group |
| 3003 (gnus-group-real-name group) | 3007 (gnus-group-real-name group) |
| 3004 (list 'nndir (gnus-group-real-name group) (list 'nndir-directory dir))))) | 3008 (list 'nndir (gnus-group-real-name group) (list 'nndir-directory dir))))) |
| 3005 | 3009 |
| 3006 (defvar nnkiboze-score-file) | 3010 (defvar nnkiboze-score-file) |
| 3011 (declare-function nnkiboze-score-file "nnkiboze" (group)) | |
| 3012 | |
| 3007 (defun gnus-group-make-kiboze-group (group address scores) | 3013 (defun gnus-group-make-kiboze-group (group address scores) |
| 3008 "Create an nnkiboze group. | 3014 "Create an nnkiboze group. |
| 3009 The user will be prompted for a name, a regexp to match groups, and | 3015 The user will be prompted for a name, a regexp to match groups, and |
| 3010 score file entries for articles to include in the group." | 3016 score file entries for articles to include in the group." |
| 3011 (interactive | 3017 (interactive |