* error "sort: Wrong type argument: number-or-marker-p" when trying to expire
@ 2008-10-09 10:10 Renee Klawitter
0 siblings, 0 replies; only message in thread
From: Renee Klawitter @ 2008-10-09 10:10 UTC (permalink / raw)
To: ding
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].*$"))
--
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2008-10-09 10:10 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-10-09 10:10 error "sort: Wrong type argument: number-or-marker-p" when trying to expire Renee Klawitter
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).