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

Patched file attached. andy > -----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 > >