From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/87349 Path: news.gmane.org!.POSTED!not-for-mail From: Lars Ingebrigtsen Newsgroups: gmane.emacs.gnus.general Subject: Re: bug#20670: [PATCH] nnimap: enable additional expunge options (v3) Date: Wed, 25 Jan 2017 01:18:08 +0100 Message-ID: <87wpdk9em7.fsf@gnus.org> References: <556538A5.3050302@rath.org> <87oajs38kf.fsf@vostro.rath.org> <87pojcp7y7.fsf@gnus.org> <87k29kyqpy.fsf@vostro.rath.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1485303538 29500 195.159.176.226 (25 Jan 2017 00:18:58 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 25 Jan 2017 00:18:58 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux) Cc: ding@gnus.org, Nikolaus Rath To: 20670@debbugs.gnu.org Original-X-From: ding-owner+M35569@lists.math.uh.edu Wed Jan 25 01:18:53 2017 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from lists1.math.uh.edu ([129.7.128.208]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cWBIL-0005um-KB for ding-account@gmane.org; Wed, 25 Jan 2017 01:18:37 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by lists1.math.uh.edu with smtp (Exim 4.87) (envelope-from ) id 1cWBI6-0007dq-O1; Tue, 24 Jan 2017 18:18:22 -0600 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by lists1.math.uh.edu with esmtps (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.87) (envelope-from ) id 1cWBI4-0007dE-8g for ding@lists.math.uh.edu; Tue, 24 Jan 2017 18:18:20 -0600 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtps (TLSv1.2:DHE-RSA-AES128-SHA:128) (Exim 4.87) (envelope-from ) id 1cWBI2-000477-GA for ding@lists.math.uh.edu; Tue, 24 Jan 2017 18:18:20 -0600 Original-Received: from hermes.netfonds.no ([80.91.224.195]) by quimby.gnus.org with esmtps (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.80) (envelope-from ) id 1cWBI1-0004V4-2U for ding@gnus.org; Wed, 25 Jan 2017 01:18:17 +0100 Original-Received: from 2.150.49.21.tmi.telenormobil.no ([2.150.49.21] helo=mouse) by hermes.netfonds.no with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.84_2) (envelope-from ) id 1cWBHy-0002zU-IO; Wed, 25 Jan 2017 01:18:16 +0100 In-Reply-To: <87k29kyqpy.fsf@vostro.rath.org> (Nikolaus Rath's message of "Tue, 24 Jan 2017 15:37:29 -0800") List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:87349 Archived-At: (The reason you call out of the mail headers is because you have a Mail-Copies-To: never in the mails you send out. So you're never Cc'd.) There was a bug in the patch, so I've reverted it for now. Here's the backtrace: Debugger entered--Lisp error: (error "Format specifier doesn=E2=80=99t matc= h argument type") format("%d .*\n" (t ("OK" ("HIGHESTMODSEQ" "914696") "Expunge" "completed= .") ("VANISHED" "1825937") ("0" "RECENT"))) (looking-at (format "%d .*\n" sequence)) (not (looking-at (format "%d .*\n" sequence))) (progn (while (and (not (bobp)) (progn (forward-line -1) (looking-at "\\*= \\|[0-9]+ OK NOOP")))) (not (looking-at (format "%d .*\n" sequence)))) (and (setq openp (memq (process-status process) (quote (open run)))) (pro= gn (while (and (not (bobp)) (progn (forward-line -1) (looking-at "\\*\\|[0-= 9]+ OK NOOP")))) (not (looking-at (format "%d .*\n" sequence))))) (while (and (setq openp (memq (process-status process) (quote (open run))= )) (progn (while (and (not (bobp)) (progn (forward-line -1) (looking-at "\\= *\\|[0-9]+ OK NOOP")))) (not (looking-at (format "%d .*\n" sequence))))) (i= f messagep (progn (nnheader-message-maybe 7 "nnimap read %dk from %s%s" (/ = (buffer-size) 1000) nnimap-address (if (not (=3D 0 (progn "Access slot \"in= itial-resync\" of `nnimap' struct CL-X." nil ... ...))) (format " (initial = sync of %d group%s; please wait)" (progn "Access slot \"initial-resync\" of= `nnimap' struct CL-X." nil (or ... ...) (aref nnimap-object 12)) (if (=3D = ... 1) "" "s")) "")))) (nnheader-accept-process-output process) (goto-char = (point-max))) (progn (goto-char (point-max)) (while (and (setq openp (memq (process-sta= tus process) (quote (open run)))) (progn (while (and (not (bobp)) (progn (f= orward-line -1) (looking-at "\\*\\|[0-9]+ OK NOOP")))) (not (looking-at (fo= rmat "%d .*\n" sequence))))) (if messagep (progn (nnheader-message-maybe 7 = "nnimap read %dk from %s%s" (/ (buffer-size) 1000) nnimap-address (if (not = (=3D 0 ...)) (format " (initial sync of %d group%s; please wait)" (progn "A= ccess slot \"initial-resync\" of `nnimap' struct CL-X." nil ... ...) (if ..= . "" "s")) "")))) (nnheader-accept-process-output process) (goto-char (poin= t-max))) (progn "Access slot \"initial-resync\" of `nnimap' struct CL-X." n= il (or (and (memq (aref nnimap-object 0) cl-struct-nnimap-tags)) (signal (q= uote wrong-type-argument) (list (quote nnimap) nnimap-object))) (let* ((v n= nimap-object)) (aset v 12 0))) openp) (condition-case nil (progn (goto-char (point-max)) (while (and (setq open= p (memq (process-status process) (quote (open run)))) (progn (while (and (n= ot ...) (progn ... ...))) (not (looking-at (format "%d .*\n" sequence))))) = (if messagep (progn (nnheader-message-maybe 7 "nnimap read %dk from %s%s" (= / (buffer-size) 1000) nnimap-address (if (not ...) (format " (initial sync = of %d group%s; please wait)" ... ...) "")))) (nnheader-accept-process-outpu= t process) (goto-char (point-max))) (progn "Access slot \"initial-resync\" = of `nnimap' struct CL-X." nil (or (and (memq (aref nnimap-object 0) cl-stru= ct-nnimap-tags)) (signal (quote wrong-type-argument) (list (quote nnimap) n= nimap-object))) (let* ((v nnimap-object)) (aset v 12 0))) openp) (quit (if = debug-on-quit (progn (debug "Quit"))) (delete-process process) nil)) (let ((process (get-buffer-process (current-buffer))) openp) (condition-c= ase nil (progn (goto-char (point-max)) (while (and (setq openp (memq (proce= ss-status process) (quote ...))) (progn (while (and ... ...)) (not (looking= -at ...)))) (if messagep (progn (nnheader-message-maybe 7 "nnimap read %dk = from %s%s" (/ ... 1000) nnimap-address (if ... ... "")))) (nnheader-accept-= process-output process) (goto-char (point-max))) (progn "Access slot \"init= ial-resync\" of `nnimap' struct CL-X." nil (or (and (memq (aref nnimap-obje= ct 0) cl-struct-nnimap-tags)) (signal (quote wrong-type-argument) (list (qu= ote nnimap) nnimap-object))) (let* ((v nnimap-object)) (aset v 12 0))) open= p) (quit (if debug-on-quit (progn (debug "Quit"))) (delete-process process)= nil))) nnimap-wait-for-response((t ("OK" ("HIGHESTMODSEQ" "914696") "Expunge" "c= ompleted.") ("VANISHED" "1825937") ("0" "RECENT"))) (if (and sync sequence) (nnimap-wait-for-response sequence)) (let ((sequence (cond ((eq nnimap-expunge (quote immediately)) (if (nnima= p-capability "UIDPLUS") (nnimap-command "UID EXPUNGE %s" (nnimap-article-ra= nges articles)) (nnheader-message 3 (concat "nnimap-expunge set to 'immedia= tely, but " "server doesn't support UIDPLUS")))) ((memq nnimap-expunge (quo= te (on-exit never))) nil) ((nnimap-capability "UIDPLUS") (nnimap-command "U= ID EXPUNGE %s" (nnimap-article-ranges articles))) (nnimap-expunge (nnimap-c= ommand "EXPUNGE")) (t (nnheader-message 7 "Article marked for deletion, but= not expunged."))))) (if (and sync sequence) (nnimap-wait-for-response sequ= ence))) (save-current-buffer (set-buffer (nnimap-buffer)) (nnimap-command "UID ST= ORE %s +FLAGS.SILENT (\\Deleted)" (nnimap-article-ranges articles)) (let ((= sequence (cond ((eq nnimap-expunge (quote immediately)) (if (nnimap-capabil= ity "UIDPLUS") (nnimap-command "UID EXPUNGE %s" ...) (nnheader-message 3 ..= .))) ((memq nnimap-expunge (quote ...)) nil) ((nnimap-capability "UIDPLUS")= (nnimap-command "UID EXPUNGE %s" (nnimap-article-ranges articles))) (nnima= p-expunge (nnimap-command "EXPUNGE")) (t (nnheader-message 7 "Article marke= d for deletion, but not expunged."))))) (if (and sync sequence) (nnimap-wai= t-for-response sequence)))) nnimap-delete-article((1825937) t) --=20 (domestic pets only, the antidote for overdose, milk.) bloggy blog: http://lars.ingebrigtsen.no