RE: Setting 'pop3-leave-mail-on-server' for each server

-----Original Message----- From: xemacs-beta-admin(a)xemacs.org [mailto:xemacs-beta-admin＠xemacs.org]On Behalf Of Peter Davis Sent: Monday, March 04, 2002 5:19 AM To: xemacs-beta(a)xemacs.org Subject: Setting 'pop3-leave-mail-on-server' for each server This bug report will be sent to the XEmacs Development Team, not to your local site managers!! Please write in English, because the XEmacs maintainers do not have translators to read other languages for them. Please describe as succinctly as possible: - What happened. - What you thought should have happened. - Precisely what you were doing at the time. Please also include any C or lisp back-traces that you may have. ================================================================ Dear Bug Team! I'm trying to use the 'pop3-leave-mail-on-server' feature selectively, so that I leave mail on some POP3 servers, but delete it from others. I've tried the code below. However, for any server that calls 'pop3-delete-on', I simply get no messages from that server. The messages are left on the server, but they never show up in my nnml groups. (I'm using gnus 5.8.8). If I later switch the :prescript for that server back to 'pop3-delete-off', I get the backlogged messages. Here's the code in my .gnus file for this: ;;;;;;;;;;;;;;; ;These functions enable/disable POP3 expunging for XEmacs (defun pop3-delete-on () (interactive) (message "Deleting mail from POP3 server.") (setq pop3-leave-mail-on-server nil)) (defun pop3-delete-off () (interactive) (message "Leaving mail on POP3 server.") (setq pop3-leave-mail-on-server t)) (if (string-match "XEmacs\\|Lucid" emacs-version) ( setq nnmail-movemail-program 'pop3-nnmail-movemail pop3-leave-mail-on-server t nnmail-spool-file '("po:peter_davis＠mediaone.net" "po:pd＠world.std.com" "po:pdavis＠bitstream.com" ) mail-sources '((pop :server "pop.ne.mediaone.net" :user "peter_davis" :prescript pop3-delete-off) (pop :server "pop.theworld.com" :user "pd" :prescript pop3-delete-on) (pop :server "mail.bitstream.com" :user "pdavis" :prescript pop3-delete-off) ) ;;pop3-uidl-file-name "d:/home/.uidls" ) ; ... ) ;;;;;;;;;;;;;;; I do see the messages, so I know these functions are being called. However, the pop3-delete-on function seems to completely disable that server somehow. Is the value of pop3-leave-mail-on-server cached somehow? Is there some other way I could code this to get the desired effect? Thanks, -pd ================================================================ System Info to help track down your bug: --------------------------------------- OS version: Microsoft Windows 2000 [Version 5.00.2195] OS: Windows_NT XEmacs 21.4.6 \"Common Lisp (Windows [1])\" configured for `i586-pc-win32'. Building XEmacs in \"f:\\xemacs\\xemacs-21.4-release\\nt\". Using compiler \"cl -nologo -W3 -O2 -G5 -ML\". Installing XEmacs in \"c:\\Program Files\\XEmacs\\XEmacs-21.4.6\". Package path is \"~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\xemacs-packages\". Compiling in support for Microsoft Windows native GUI. Compiling in support for XPM images. Compiling in support for GIF images. Compiling in support for PNG images. Compiling in support for TIFF images. Compiling in support for JPEG images. Compiling in support for X-Face message headers. Compiling in support for toolbars. Compiling in support for dialogs. Compiling in support for widgets. Compiling in support for native sounds. Compiling in fast dired implementation. Using minimal tagbits. Using indexed lrecord implementation. Using portable dumper. Load-Path Lisp Shadows: ---------------------- (d:\HOME\emacsdir\records-1.4.8\records ~/emacsdir/records-1.4.9/records d:\HOME\emacsdir\records-1.4.8\records-vars ~/emacsdir/records-1.4.9/records-vars d:\HOME\emacsdir\records-1.4.8\records-util ~/emacsdir/records-1.4.9/records-util d:\HOME\emacsdir\records-1.4.8\records-search ~/emacsdir/records-1.4.9/records-search d:\HOME\emacsdir\records-1.4.8\records-load ~/emacsdir/records-1.4.9/records-load d:\HOME\emacsdir\records-1.4.8\records-index ~/emacsdir/records-1.4.9/records-index d:\HOME\emacsdir\records-1.4.8\records-dindex ~/emacsdir/records-1.4.9/records-dindex d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\browse-url ~/emacsdir\browse-url ~/emacsdir\tex-site d:\Program Files\XEmacs\xemacs-packages\lisp\auctex\tex-site ~/emacsdir\dbx d:\Program Files\XEmacs\xemacs-packages\lisp\debug\dbx d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\pop3 d:\Program Files\XEmacs\xemacs-packages\lisp\gnus\pop3 ~/emacsdir\biff-mode d:\Program Files\XEmacs\xemacs-packages\lisp\gnus\biff-mode d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\starttls d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\starttls d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\smtpmail d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\smtpmail d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\sendmail d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\sendmail d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\rmailout d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\rmailout d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\rmail-mini d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\rmail-mini d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\rfc822 d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\rfc822 d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\rfc2104 d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\rfc2104 d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\reporter d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\reporter d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\pop3 d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\pop3 d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\mailheader d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\mailheader d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\mail-utils d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\mail-utils d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\mail-extr d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\mail-extr d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\mail-abbrevs d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\mail-abbrevs d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\highlight-headers d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\highlight-headers d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\browse-url d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\browse-url d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\browse-url-xemacs d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\browse-url-xemacs d:/Program Files/XEmacs/xemacs-packages/lisp/mail-lib\base64 d:\Program Files\XEmacs\xemacs-packages\lisp\mail-lib\base64 ~/emacsdir\metamail d:\Program Files\XEmacs\xemacs-packages\lisp\net-utils\metamail ~/emacsdir\postscript d:\Program Files\XEmacs\xemacs-packages\lisp\prog-modes\postscript d:\Program Files\XEmacs\xemacs-packages\lisp\ps-print\ps-print d:\Program Files\XEmacs\xemacs-packages\lisp\ps-print-nomule\ps-print ~/emacsdir\gnuserv d:\PROGRA~1\XEmacs\XEmacs-21.4.6\lisp\gnuserv) Installed XEmacs Packages: ------------------------- ((zenirc:version 1.13 :type regular) (xslt-process :version 1.06 :type regular) (xemacs-devel :version 1.4 :type single-file) (xemacs-base :version 1.58 :type regular) (w3 :version 1.21 :type regular) (vm :version 7.02 :type regular) (viper :version 1.31 :type regular) (view-process :version 1.11 :type regular) (vhdl :version 1.15 :type regular) (vc-cc :version 1.18 :type regular) (vc :version 1.3 :type regular) (tramp :version 1.02 :type regular) (tpu :version 1.12 :type regular) (tooltalk :version 1.13 :type regular) (tm :version 1.3 :type regular) (time :version 1.11 :type regular) (textools :version 1.12 :type regular) (text-modes :version 1.37 :type single-file) (texinfo :version 1.2 :type regular) (supercite :version 1.19 :type regular) (strokes :version 1.08 :type regular) (speedbar :version 1.22 :type regular) (sounds-wav :version 1.1 :type regular) (sounds-au :version 1.1 :type regular) (slider :version 1.13 :type regular) (sieve :version 1.01 :type regular) (sh-script :version 1.13 :type regular) (sgml :version 1.08 :type regular) (semantic :version 1.11 :type regular) (scheme :version 1.11 :type regular) (rmail :version 1.13 :type regular) (reftex :version 1.24 :type regular) (psgml :version 1.26 :type regular) (ps-print-nomule :version 1.05 :type regular) (ps-print :version 1.02 :type regular) (prog-modes :version 1 .49 :type single-file) (pcomplete :version 1.01 :type regular) (pcl-cvs :version 1.58 :type regular) (pc :version 1.21 :type single-file) (os-utils :version 1.26 :type single-file) (net-utils :version 1.23 :type single-file) (misc-games :version 1.15 :type single-file) (mine :version 1.14 :type regular) (mh-e :version 1.14 :type regular) (mew :version 1.16 :type regular) (mailcrypt :version 2.11 :type regular) (mail-lib :version 1.43 :type regular) (jde :version 1.32 :type regular) (ispell :version 1.24 :type regular) (ilisp :version 1.2 :type regular) (igrep :version 1.08 :type regular) (idlwave :version 1.24 :type regular) (hm--html-menus :version 1.17 :type regular) (gnus :version 1.58 :type regular) (gnats :version 1.13 :type regular) (games :version 1.13 :type regular) (fsf-compat :version 1.1 :type single-file) (frame-icon :version 1.09 :type regular) (forms :version 1.14 :type regular) (footnote :version 1.13 :type regular) (eudc :version 1.35 :type regular) (eterm :version 1.13 :type regular) (eshell :version 1.02 :type regular) (emerge :version 1.09 :type regular) (elib :version 1.1 :type single-file) (eieio :version 1.02 :type regular) (eicq :version 1.05 :type regular) (efs :version 1.27 :type regular) (edt :version 1.12 :type regular) (edit-utils :version 1.76 :type single-file) (ediff :version 1.35 :type regular) (edebug :version 1.14 :type regular) (dired :version 1.11 :type regular) (dictionary :version 1.06 :type regular) (debug :version 1.14 :type regular) (crisp :version 1.12 :type regular) (cookie :version 1.13 :type regular) (clearcase :version 1.02 :type regular) (cc-mode :version 1.27 :type regular) (calendar :version 1.18 :type regular) (calc :version 1.18 :type regular) (c-support :version 1.16 :type single-file) (build :version 1.05 :type regular) (bbdb :version 1.17 :type regular) (auctex :version 1.29 :type regular) (apel :version 1.2 :type regular) (ada :version 1.1 :type regular) (Sun :version 1.13 :type regular)) Features: -------- (hsmail xemacsbug shadow bbdb-gui flyspell ispell bbdb-com mail-extr gnus-picon w3-forms w3-display w3-imap w3-widget css font w3-mouse w3-vars w3-cus w3-keyword url mm mule-sysdp url-parse url-vars sort smiley annotations gnus-cite gnus-async gnus-score score-mode gnus-ml disp-table gnus-topic pop3 env passwd nnml nndraft nnmh nndoc nnvirtual gnus-msg gnus-art mm-uu mm-view gnus-cache nntp nnoo bytecomp byte-compile gnus-sum gnus-group gnus-undo nnmail mail-source format-spec gnus-start gnus-range gnus-spec gnus-int gnus-win font-lock efs-cu records-util records records-autoloads records-dindex records-index records-vars bbdb-gnus gnus gnus-ems gnus-xmas bbdb timezone hyperbole hmouse-key h-skip-bytec hmouse-drv hypb hact hhist hvar set hversion w32-shellex browse-url message messagexmas mml mm-decode mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 rfc2231 rfc2047 gnus-util qp ietf-drums time-date parse-time mail-abbrevs nnheader nnheaderxm mm-util mail-prsvr mail-utils mailheader vm-autoload highlight-headers vm-vars vm-startup vm-version vm smtpmail time-stamp sendmail rfc822 advice advice-preload cc-mode cc-align cc-cmds cc-engine cc-styles cc-langs cc-vars wid-edit cus-face cc-menus imenu cc-defs zenirc-autoloads xslt-process-autoloads xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads psgml-autoloads ps-print-nomule-autoloads ps-print-autoloads prog-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads net-utils-autoloads misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads hm--html-menus-autoloads gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads eicq-autoloads efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads dired-autoloads dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads ada-autoloads Sun-autoloads lisp-autoloads loadhist auto-show fontl-hooks code-cmds gutter-items menubar-items x-menubar dragdrop mode-motion mouse itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete help-nomule cus-file derived frame text-props obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp file-coding mswindows-scrollbars mswindows toolbar native-sound scrollbar network-streams subprocesses menu-accelerator-support menubar md5 xemacs gutter tiff png gif jpeg xface xpm xbm lisp-float-type windows-nt dragdrop-api dialog devices window-system base64) Recent keystrokes: ----------------- l SPC d a t a SPC b i t s . RET RET T h a n k SPC y o u . RET RET - p d C-c C-c n n n n d n d d n n n n q up up up up up up up up up up # # S l 1 RET M-< M-x x e m SPC r e SPC BS BS b u SPC SPC BS BS BS BS BS BS BS BS BS e SPC BS BS r e p o SPC r SPC x e SPC TAB RET Recent messages (most recent first): ----------------------------------- Parsing d:\HOME\.mailrc... Loading xemacsbug...done Loading xemacsbug... Making completion list... Making completion list... Changed level of nnml:amazon.art from 3 to 1 Changed level of nnml:amazon.assoc from 3 to 1 No more unread articles (Type n for comp.lang.postscript [3]) Generating summary...done Generating summary... Sorting threads...done Sorting threads... Scoring...done Scoring... Fetching headers for nnml:scbwi.ne.admin...done Fetching headers for nnml:scbwi.ne.admin... Retrieving newsgroup: nnml:scbwi.ne.admin... Expiring articles...done Expiring articles... No more unread articles (Type n for nnml:scbwi.ne.admin [2]) -- -------- Peter Davis Pageflex Inc 617-520-8345 215 First Street 617-868-4732 (FAX) Cambridge, MA 02142 pdavis(a)pageflexinc.com http://www.pageflexinc.com