Mercurial > emacs
comparison lisp/net/imap.el @ 87209:bc4976b7380e
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-950
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 09 Dec 2007 22:14:32 +0000 |
parents | b37f01064ecf |
children | 0cbc451989a7 |
comparison
equal
deleted
inserted
replaced
87208:87e24ce4f26a | 87209:bc4976b7380e |
---|---|
1732 (when (and articles flags) | 1732 (when (and articles flags) |
1733 (with-current-buffer (or buffer (current-buffer)) | 1733 (with-current-buffer (or buffer (current-buffer)) |
1734 (imap-ok-p (imap-send-command-wait | 1734 (imap-ok-p (imap-send-command-wait |
1735 (concat "UID STORE " articles | 1735 (concat "UID STORE " articles |
1736 " +FLAGS" (if silent ".SILENT") " (" flags ")")))))) | 1736 " +FLAGS" (if silent ".SILENT") " (" flags ")")))))) |
1737 | |
1738 ;; Cf. http://thread.gmane.org/gmane.emacs.gnus.general/65317/focus=65343 | |
1739 ;; Signal an error if we'd get an integer overflow. | |
1740 ;; | |
1741 ;; FIXME: Identify relevant calls to `string-to-number' and replace them with | |
1742 ;; `imap-string-to-integer'. | |
1743 (defun imap-string-to-integer (string &optional base) | |
1744 (let ((number (string-to-number string base))) | |
1745 (if (> number most-positive-fixnum) | |
1746 (error | |
1747 (format "String %s cannot be converted to a lisp integer" number)) | |
1748 number))) | |
1737 | 1749 |
1738 (defun imap-message-copyuid-1 (mailbox) | 1750 (defun imap-message-copyuid-1 (mailbox) |
1739 (if (imap-capability 'UIDPLUS) | 1751 (if (imap-capability 'UIDPLUS) |
1740 (list (nth 0 (imap-mailbox-get-1 'copyuid mailbox)) | 1752 (list (nth 0 (imap-mailbox-get-1 'copyuid mailbox)) |
1741 (string-to-number (nth 2 (imap-mailbox-get-1 'copyuid mailbox)))) | 1753 (string-to-number (nth 2 (imap-mailbox-get-1 'copyuid mailbox)))) |