From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/67553 Path: news.gmane.org!not-for-mail From: Renee Klawitter Newsgroups: gmane.emacs.gnus.general Subject: error "sort: Wrong type argument: number-or-marker-p" when trying to expire Date: Thu, 09 Oct 2008 12:10:31 +0200 Message-ID: <87od1ut6y0.fsf@dev.null> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1223561338 3378 80.91.229.12 (9 Oct 2008 14:08:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 9 Oct 2008 14:08:58 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16004@lists.math.uh.edu Thu Oct 09 16:09:50 2008 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1KnwAv-0008Jx-1V for ding-account@gmane.org; Thu, 09 Oct 2008 16:07:33 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1Knw9d-0004RC-Tu; Thu, 09 Oct 2008 09:06:13 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1KnsY4-00034z-Uk for ding@lists.math.uh.edu; Thu, 09 Oct 2008 05:15:12 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1KnsY0-0007jD-C8 for ding@lists.math.uh.edu; Thu, 09 Oct 2008 05:15:12 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1KnsY3-0005zi-00 for ; Thu, 09 Oct 2008 12:15:11 +0200 Original-Received: from root by ciao.gmane.org with local (Exim 4.43) id 1KnsXu-0001Z7-RG for ding@gnus.org; Thu, 09 Oct 2008 10:15:02 +0000 Original-Received: from dslb-088-066-029-092.pools.arcor-ip.net ([88.66.29.92]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 09 Oct 2008 10:15:02 +0000 Original-Received: from deepestthought42 by dslb-088-066-029-092.pools.arcor-ip.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 09 Oct 2008 10:15:02 +0000 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 359 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: dslb-088-066-029-092.pools.arcor-ip.net User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) Cancel-Lock: sha1:Ye4sJKNQCudkfTUyrEnJf5hs3vk= X-Spam-Score: -3.6 (---) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:67553 Archived-At: Hi list! Whenever I mark mails expirable and quit the buffer with q, I get the error-message: sort: Wrong type argument: number-or-marker-p, members-aaas\.org> where "members-aaas\.org" is part of an URL in some of my mails, none of which I've marked as expirable. I've attached my - rather long and "blackened" - gnus.el. Thanks a lot, Renee. -------------- my gnus.el: -------------- (setq user-mail-address "") (setq user-full-name "") ;;(eval-after-load "mail-source" '(require 'pop3)) (setq gnus-select-method '(nnml "")) (setq mail-sources '((imap :server "imap.mpi-hd.mpg.de" :port 993 :stream ssl :mailbox "INBOX.Mail" :user "xxxx" :fetchflag "\\Seen" :password "xxxx") (imap :server "imap.gmail.com" :port 993 :stream ssl :user "xxxx" :password "xxxx" :fetchflag "\\Seen"))) ;; (eval-after-load "mail-source" '(add-to-list 'mail-sources '(maildir :path "/home/renee/MailDir/" :subdirs ("cur" "new")))) ;; Let Gnus change the "From:" line by looking at current group we are in. (setq gnus-posting-styles '(("Renee Klawitter" (address "xxxx")) ("Renee Klawitter" (address "xxxx")))) ;; Available SMTP accounts. (defvar smtp-accounts '((ssl "xxxx@gmail.com" "smtp.gmail.com" 587 "xxxx" "xxxx" "" "") (plain "xxxx@mpi-hd.mpg.de" "mail.mpi-hd.mpg.de" 25 "xxxx" "xxxx"))) ;; Default smtpmail.el configurations. (require 'smtpmail) (setq send-mail-function 'smtpmail-send-it message-send-mail-function 'smtpmail-send-it mail-from-style nil user-full-name "Renee Klawitter" ) (defun set-smtp-plain (server port user password) "Set related SMTP variables for supplied parameters." (setq smtpmail-smtp-server server smtpmail-smtp-service port smtpmail-auth-credentials (list (list server port user password)) smtpmail-starttls-credentials nil) (message "Setting SMTP server to `%s:%s' for user `%s'." server port user)) (defun set-smtp-ssl (server port user password key cert) "Set related SMTP and SSL variables for supplied parameters." (setq starttls-use-gnutls t starttls-gnutls-program "gnutls-cli" smtpmail-auth-credentials (list (list server port user password)) smtpmail-starttls-credentials (list (list server port key cert)) ;; starttls-extra-arguments nil smtpmail-smtp-server server smtpmail-smtp-service port) (message "Setting SMTP server to `%s:%s' for user `%s'. (SSL enabled.)" server port user)) (defun change-smtp () "Change the SMTP server according to the current from line." (save-excursion (loop with from = (save-restriction (message-narrow-to-headers) (message-fetch-field "from")) for (acc-type address . auth-spec) in smtp-accounts when (string-match address from) do (cond ((eql acc-type 'plain) (return (apply 'set-smtp-plain auth-spec))) ((eql acc-type 'ssl) (return (apply 'set-smtp-ssl auth-spec))) (t (error "Unrecognized SMTP account type: `%s'." acc-type))) finally (error "Cannot interfere SMTP information.")))) (add-hook 'message-send-hook 'change-smtp) (setq nnmail-split-methods ;; '(("mail.ion-general" "^To:.*ion-general@.*\\|^To: ion-general@.*\\|^Cc: ion-general@.*\\|^Cc:ion-general@.*") ;; ("mail.amazon-ebay" "^From:.*amazon.*\\|^From:.*ebay.*") ;; ("mail.nature" "^From: .*nature\.*") '(("mail.mpik" "^To:.*mpi-hd.*") ("mail.misc" "") )) (setq gnus-parameters '(("mail\\.ion-general" (subscribed . t) (to-address . "ion-general@lists.berlios.org") (to-list . "ion-general@lists.berlios.org") (gnus-use-scoring nil)) ("mail\\.misc" (gnus-use-scoring nil) (display . all )))) (setq gnus-posting-styles '((".*" ;; default settings (address "xxxx@gmail.com")) (".*gmane.*" ;; default settings (address "xxxx@gmail.com")) (".*mpik.*" ;; default settings (address "r.klawitter@mpi-hd.mpg.de")) ((message-news-p) ;; for news (address "you@dev.null") (signature-file "~/.signature-news")) )) (setq gnus-extract-address-components 'mail-extract-address-components) (setq gnus-permanently-visible-groups "mail\..*") (setq gnus-group-line-format "%M%S%p%P%5y: %(%g%)\n") ;;; Summary buffer ;; Lots of stuff here, most of it is just highlighting differently ;; scored articles. (defface llm-gnus-high-score-face '((((class color)) (:foreground "red" :bold t:inherit (default))) (t (:foreground "red" :bold t :inherit (default)))) "Face for followups.") (defface llm-gnus-low-score-face '((((class color)) (:foreground "seagreen" :inherit (default))) (t (:foreground "seagreen" :inherit (default)))) "Face for low-scoring articles.") ;; extra highlighting in the summary buffer (require 'gnus-sum) (setq gnus-summary-highlight (append '(((> score 100) . llm-gnus-high-score-face) ((< score 0) . llm-gnus-low-score-face)) gnus-summary-highlight)) (setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject) ;; don't select the first article when entering the summary buffer. (setq gnus-auto-select-first nil ;; definately don't gnus-auto-select-subject 'first ;; show collapsed threads gnus-thread-hide-subtree t ;; indent each level by 1 gnus-indent-thread-level 1 ;; show the number of articles in a thread as well as default ;; settings ;; FIXME: this is all wrong ;; gnus-summary-line-format "%U%R%z%(%[%3,3t %4L: %-20,20n%]%B %s%)\n" gnus-summary-line-format "%-8,8d%-2,2U%R%z%-3,3t: %B%-23,23n %s\n" ;; gnus-sum-thread-tree-root "*" ;; gnus-sum-thread-tree-false-root "*" ;; gnus-sum-thread-tree-single-indent " " ;; gnus-sum-thread-tree-leaf-with-other "|-> " ;; gnus-sum-thread-tree-vertical "|" ;; gnus-sum-thread-tree-single-leaf "\-> " ;; gnus-summary-line-format "%U%R%z%3,3t%B%-33,33n %s\n" gnus-sum-thread-tree-root "**" gnus-sum-thread-tree-single-indent " " gnus-sum-thread-tree-indent " " gnus-sum-thread-tree-leaf-with-other "|--> " gnus-sum-thread-tree-vertical "| " gnus-sum-thread-tree-single-leaf "O--> " ;; gnus-summary-line-format "%U%R%z%t%I%(%[%4L: %-15,15f%]%) %s\n" ;; mode-line gnus-summary-mode-line-format "Gnus: %g [%U]") ;; my addresses ;;; Article buffer ;; this is what the frame should look like once an article ;; is selected. ;; /------------------------------------\ ;; | Summary Buffer Here | ;; | | ;; |------------------------------------| ;; | | ;; | | ;; | Article Buffer Here | ;; | | ;; | | ;; \------------------------------------/ (gnus-add-configuration '(article (vertical 1.0 (horizontal 0.25 (summary 1.0 point)) (article 1.0)))) ;; headers I want to see (setq gnus-visible-headers '("^To:" "^Mail-Copies-To:" "^Cc:" "^From:" "^Subject:" "^Date:" "^Reply-To:" "^Followup-To:" "Mail-\\(Copies\\|Followup\\)-to:") ;; hide headers not listed in `gnus-visible-headers' gnus-article-hide-headers t ;; hide headers which are listed in `gnus-visible-headers' but ;; are duplicates. gnus-boring-article-headers '(empty followup-to reply-to) ;; what word at the end of a line should be seen as an attribution ;; gnus-cite-attribution-suffix ;; (concat ;; "\\(\\(divulged\\|insanely\\|wrote\\|writes\\|say\\|" ;; "said\\|says\\|>\\):\\|-----Original Message-----\\)[ ]*$") ;; article mode-line gnus-article-mode-line-format "Gnus: %S" gnus-tree-mode-line-format "Thread Tree") ;;; Article washing: ;; (setq gnus-article-prepare-hook '(gnus-article-hide-boring-headers gnus-article-treat-overstrike gnus-article-strip-leading-blank-lines gnus-article-remove-trailing-blank-lines gnus-article-strip-multiple-blank-lines gnus-article-de-quoted-unreadable gnus-article-highlight gnus-article-emphasize gnus-article-add-buttons-to-head gnus-article-date-lapsed gnus-article-treat-dumbquotes) gnus-treat-display-xface 'head gnus-treat-display-smileys nil ;; view all mime gnus-mime-view-all-parts t ;; but not vcards gnus-ignored-mime-types '("text/x-vcard") ;; The only real sig-sep "-- ", plus one with any number of spaces gnus-signature-separator '("^-- $") ;; anything over 6 lines isnt a sig. gnus-signature-limit '(6.0) ;; dealing with horribly messed-up OE articles ;; gnus-outlook-deuglify-attrib-verb-regexp ;; (concat ;; "wrote\\|" ;; "writes\\|" ;; "schrieb\\|" ;; "schreibt\\|" ;; "skrev\\|" ;; "schreef\\|" ;; "said\\|" ;; "divulged\\|" ;; "insanely") ;; gnus-outlook-deuglify-unwrap-max 90 ;; gnus-outlook-deuglify-unwrap-stop-chars ".!?" ;; gnus-outlook-deuglify-unwrap-min 50 ) ;;(setq gnus-thread-sort-functions ;; '((lambda (t1 t2) ;; (not (gnus-thread-sort-by-date t1 t2))))) (setq gnus-treat-buttonize-head nil) (setq ;; prefer to show plain text over markup for multipart/alternative mm-discouraged-alternatives (append mm-discouraged-alternatives '("text/html" "text/richtext" )) mm-text-html-renderer 'w3m) (setq mm-inline-text-html-with-images t) (defun gnus-summary-w3m-safe-toggle-inline-images (&optional arg) "Toggle displaying of all images in the article buffer. If the prefix arg is given, all images are considered to be safe." (interactive "P") (save-excursion (set-buffer gnus-article-buffer) (w3m-safe-toggle-inline-images arg))) (eval-after-load "gnus-sum" '(define-key gnus-summary-mode-map "\C-i" 'gnus-summary-w3m-safe-toggle-inline-images)) (setq mm-automatic-display '("text/plain" "text/enriched" "text/richtext" "message/delivery-status" "multipart/.*" "message/rfc822" "text/x-patch" "application/pgp-signature" "application/emacs-lisp" "image/png" "image/jpg" "image/tif" "image/gif" "image/xpm" "text/html")) ;;(setq gnus-fetch-old-headers t) (require 'gnus-dired) ;, isn't needed due to autoload cookies (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) (require 'gnus-namazu) (gnus-namazu-insinuate) (setq gnus-namazu-make-index-command "mknmz") (setq gnus-namazu-make-index-arguments '("--all" "--mailnews" "--deny=^.*[^0-9].*$")) --