lisp/gnus/nnmaildir.el

53    (put 'nnmaildir--with-nntp-buffer 'lisp-indent-function 0)
54    (put 'nnmaildir--with-work-buffer 'lisp-indent-function 0)
55    (put 'nnmaildir--with-nov-buffer  'lisp-indent-function 0)
56    (put 'nnmaildir--with-move-buffer 'lisp-indent-function 0)
104 (defmacro nnmaildir--nov-get-beg   (nov) `(aref ,nov 0))
105 (defmacro nnmaildir--nov-get-mid   (nov) `(aref ,nov 1))
106 (defmacro nnmaildir--nov-get-end   (nov) `(aref ,nov 2))
107 (defmacro nnmaildir--nov-get-mtime (nov) `(aref ,nov 3))
108 (defmacro nnmaildir--nov-get-extra (nov) `(aref ,nov 4))
204 (defmacro nnmaildir--with-nntp-buffer (&rest body)
206      (set-buffer nntp-server-buffer)
208 (defmacro nnmaildir--with-work-buffer (&rest body)
210      (set-buffer (get-buffer-create " *nnmaildir work*"))
212 (defmacro nnmaildir--with-nov-buffer (&rest body)
214      (set-buffer (get-buffer-create " *nnmaildir nov*"))
216 (defmacro nnmaildir--with-move-buffer (&rest body)
218      (set-buffer (get-buffer-create " *nnmaildir move*"))
318       (nnmaildir--with-nov-buffer
325 	       (erase-buffer)
327 	       (setq nov (read (current-buffer)))
342 	(when (and nov (equal mtime (nnmaildir--nov-get-mtime nov)))
344 	  (setq old-extra (nnmaildir--nov-get-extra nov))
357 	(erase-buffer)
396 	;; The data is parsed; create an nnmaildir NOV structure.
402 	  (erase-buffer)
427 	(erase-buffer)
428 	(prin1 (vector storage-version num msgid nov) (current-buffer))
611       (and (setq x (assq 'get-new-mail defs))
622 	(setq x (assq 'create-directory defs))
772 	(buffer-file-coding-system nil)
774 	(nnmaildir-get-new-mail t)
785     (nnmaildir--with-work-buffer
790 		    (nnmail-get-new-mail 'nnmaildir nil nil scan-group))
829 	       (nnmail-get-new-mail 'nnmaildir nil nil))))))
836     (nnmaildir--with-nntp-buffer
837       (erase-buffer)
845 			 nntp-server-buffer)
847                   (princ (nnmaildir--grp-min group) nntp-server-buffer)
858     (nnmaildir--with-nntp-buffer
859       (erase-buffer)
865 	   (princ (nnmaildir--grp-count group) nntp-server-buffer)
867 	   (princ (nnmaildir--grp-min   group) nntp-server-buffer)
870 		  nntp-server-buffer)
955       (nnmaildir--with-nntp-buffer
956 	(erase-buffer)
958 	(princ (nnmaildir--grp-count group) nntp-server-buffer)
960 	(princ (nnmaildir--grp-min   group) nntp-server-buffer)
963 	       nntp-server-buffer)
967 (defun nnmaildir-request-create-group (gname &optional server args)
1009 	(buffer-file-coding-system nil)
1122 	      (princ num nntp-server-buffer)
1123 	      (insert "\t" (nnmaildir--nov-get-beg nov) "\t"
1125 		      (nnmaildir--nov-get-mid nov) "\tXref: nnmaildir "
1127 	      (princ num nntp-server-buffer)
1128 	      (insert "\t" (nnmaildir--nov-get-end nov) "\n"))))
1134       (nnmaildir--with-nntp-buffer
1135 	(erase-buffer)
1166 (defun nnmaildir-request-article (num-msgid &optional gname server to-buffer)
1209 	(set-buffer (or to-buffer nntp-server-buffer))
1210 	(erase-buffer)
1218 (defun nnmaildir-request-replace-article (number gname buffer)
1221 	(buffer-file-coding-system nil)
1249 	(set-buffer buffer)
1285       (nnmaildir--with-move-buffer
1286 	(erase-buffer)
1297 	(buffer-file-coding-system nil)
1376 	  (nnmaildir-request-create-group gname)
1393 			(nnmaildir-request-create-group gname))
1441       (nnmaildir--with-move-buffer
1471 	       (erase-buffer)
1479 	(erase-buffer))
1485 	(buffer-file-coding-system nil)
1607   (let (servers buffer)
1612     (setq buffer (get-buffer " *nnmaildir work*"))
1613     (if buffer (kill-buffer buffer))
1614     (setq buffer (get-buffer " *nnmaildir nov*"))
1615     (if buffer (kill-buffer buffer))
1616     (setq buffer (get-buffer " *nnmaildir move*"))
1617     (if buffer (kill-buffer buffer)))