Mercurial > emacs

comparison lisp/gnus/nnimap.el @ 111430:b75e6634a171

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-int.el, nnimap.el, nnir.el: More improvements to thread-referral. message.el (message-send-mail): Don't insert courtesy messages if the message already has List-Post and List-ID messages. gnus-ems.el (gnus-put-image): Use a blank text as the insertion string to avoid making the From headers syntactically invalid.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 07 Nov 2010 00:22:06 +0000
parents 733acab855e4
children 244f248736b4
comparison
equal deleted inserted replaced
111429:249a1455856a 111430:b75e6634a171
1395 (deffoo nnimap-request-post (&optional server) 1395 (deffoo nnimap-request-post (&optional server)
1396 (setq nnimap-status-string "Read-only server") 1396 (setq nnimap-status-string "Read-only server")
1397 nil) 1397 nil)
1398 1398
1399 (deffoo nnimap-request-thread (id) 1399 (deffoo nnimap-request-thread (id)
1400 (let* ((refs (split-string 1400 (let* ((refs (split-string
1401 (or (mail-header-references (gnus-summary-article-header)) 1401 (or (mail-header-references (gnus-summary-article-header))
1402 ""))) 1402 "")))
1403 (cmd (let ((value 1403 (cmd (let ((value
1404 (format 1404 (format
1405 "(OR HEADER REFERENCES %s HEADER Message-Id %s)" 1405 "(OR HEADER REFERENCES %s HEADER Message-Id %s)"
1406 id id))) 1406 id id)))
1407 (dolist (refid refs value) 1407 (dolist (refid refs value)
1408 (setq value (format 1408 (setq value (format
1409 "(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)" 1409 "(OR (OR HEADER Message-Id %s HEADER REFERENCES %s) %s)"
1410 refid refid value))))) 1410 refid refid value)))))
1411 (result 1411 (result (with-current-buffer (nnimap-buffer)
1412 (with-current-buffer (nnimap-buffer) 1412 (nnimap-command "UID SEARCH %s" cmd))))
1413 (nnimap-command "UID SEARCH %s" cmd)))) 1413 (gnus-fetch-headers
1414 (gnus-fetch-headers (and (car result) 1414 (and (car result) (delete 0 (mapcar #'string-to-number
1415 (delete 0 (mapcar #'string-to-number 1415 (cdr (assoc "SEARCH" (cdr result))))))
1416 (cdr (assoc "SEARCH" (cdr result))))))))) 1416 nil t)))
1417 1417
1418 (defun nnimap-possibly-change-group (group server) 1418 (defun nnimap-possibly-change-group (group server)
1419 (let ((open-result t)) 1419 (let ((open-result t))
1420 (when (and server 1420 (when (and server
1421 (not (nnimap-server-opened server))) 1421 (not (nnimap-server-opened server)))