Function: imap-message-appenduid-1

imap-message-appenduid-1 is a byte-compiled function defined in imap.el.gz.

Signature

(imap-message-appenduid-1 MAILBOX)

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
;; FIXME: Amalgamate with imap-message-copyuid-1, using an extra arg, since it
;; shares most of the code?  -- fx
(defun imap-message-appenduid-1 (mailbox)
  (if (imap-capability 'UIDPLUS)
      (imap-mailbox-get-1 'appenduid mailbox)
    (let ((old-mailbox imap-current-mailbox)
	  (state imap-state)
	  (imap-message-data (obarray-make 2)))
      (when (imap-mailbox-examine-1 mailbox)
	(prog1
	    (and (imap-fetch-safe '("*" . "*:*") "UID")
		 (list (imap-mailbox-get-1 'uidvalidity mailbox)
		       (apply #'max (imap-message-map
				    (lambda (uid _prop) uid) 'UID))))
	  (if old-mailbox
	      (imap-mailbox-select old-mailbox (eq state 'examine))
	    (imap-mailbox-unselect)))))))