Mercurial > emacs
comparison lisp/gnus/nnmaildir.el @ 87231:f77f4c589557
Add declare-function compatibility definition.
(gnus-group-mark-article-read): Declare as a function.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2007 05:23:01 +0000 |
| parents | bc4976b7380e |
| children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
| 87230:3b4311ae0926 | 87231:f77f4c589557 |
|---|---|
| 58 (put 'nnmaildir--with-nov-buffer 'lisp-indent-function 0) | 58 (put 'nnmaildir--with-nov-buffer 'lisp-indent-function 0) |
| 59 (put 'nnmaildir--with-move-buffer 'lisp-indent-function 0) | 59 (put 'nnmaildir--with-move-buffer 'lisp-indent-function 0) |
| 60 (put 'nnmaildir--condcase 'lisp-indent-function 2) | 60 (put 'nnmaildir--condcase 'lisp-indent-function 2) |
| 61 ) | 61 ) |
| 62 ] | 62 ] |
| 63 | |
| 64 ;; For Emacs < 22.2. | |
| 65 (eval-and-compile | |
| 66 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) | |
| 63 | 67 |
| 64 (eval-and-compile | 68 (eval-and-compile |
| 65 (require 'nnheader) | 69 (require 'nnheader) |
| 66 (require 'gnus) | 70 (require 'gnus) |
| 67 (require 'gnus-util) | 71 (require 'gnus-util) |
| 1437 group-art))))) | 1441 group-art))))) |
| 1438 | 1442 |
| 1439 (defun nnmaildir-active-number (gname) | 1443 (defun nnmaildir-active-number (gname) |
| 1440 0) | 1444 0) |
| 1441 | 1445 |
| 1446 (declare-function gnus-group-mark-article-read "gnus-group" (group article)) | |
| 1447 | |
| 1442 (defun nnmaildir-request-expire-articles (ranges &optional gname server force) | 1448 (defun nnmaildir-request-expire-articles (ranges &optional gname server force) |
| 1443 (let ((no-force (not force)) | 1449 (let ((no-force (not force)) |
| 1444 (group (nnmaildir--prepare server gname)) | 1450 (group (nnmaildir--prepare server gname)) |
| 1445 pgname time boundary bound-iter high low target dir nlist nlist2 | 1451 pgname time boundary bound-iter high low target dir nlist nlist2 |
| 1446 stop article didnt nnmaildir--file nnmaildir-article-file-name | 1452 stop article didnt nnmaildir--file nnmaildir-article-file-name |