Function: nndraft-request-move-article

nndraft-request-move-article is a byte-compiled function defined in nndraft.el.gz.

Signature

(nndraft-request-move-article ARTICLE GROUP SERVER ACCEPT-FORM &optional LAST MOVE-IS-INTERNAL)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nndraft.el.gz
(deffoo nndraft-request-move-article (article group server accept-form
				      &optional _last _move-is-internal)
  (nndraft-possibly-change-group group)
  (let ((buf (gnus-get-buffer-create " *nndraft move*"))
	result)
    (and
     (nndraft-request-article article group server)
     (with-current-buffer buf
       (erase-buffer)
       (insert-buffer-substring nntp-server-buffer)
       (setq result (eval accept-form t))
       (kill-buffer (current-buffer))
       result)
     (null (nndraft-request-expire-articles (list article) group server 'force))
     result)))