Function: imap-message-copyuid-1

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

Signature

(imap-message-copyuid-1 MAILBOX)

Source Code

;; Defined in /usr/src/emacs/lisp/net/imap.el.gz
(defun imap-message-copyuid-1 (mailbox)
  (if (imap-capability 'UIDPLUS)
      (list (nth 0 (imap-mailbox-get-1 'copyuid mailbox))
	    (string-to-number (nth 2 (imap-mailbox-get-1 'copyuid 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)))))))