Re: Slow nnimap expiry with expiry-target

["Jochen Küpper" <jochen=W2i0oK7yYu0+t3nig+EZI7NAH6kLmebB@public.gmane.org>]

On Tue, 23 Sep 2003 21:59:35 +0200 Simon Josefsson wrote:

Simon> Or <info:Gnus/Asynchronous+Article+Fetching> maybe?  

(info "(gnus)Asynchronous Fetching")

Simon> What are people using to generate info URLs? 

Reiner Steib posted his solution a while ago, this is my copy of it:
,----
| ;;
| ;; The following functions to insert info-links into a buffer were originaly
| ;; posted on gnu.emacs.gnus by Reiner Steib, August 2003.
| ;; Message-ID: <v9smo83rof.fsf_-_=WZbs9ZYJ0ya4nSHvGpykACzlmkwuQ7VwhC4ANOJQIlc@public.gmane.org>
| ;;
| (defvar jk/info-goto-node-string "info" ; "Info-goto-node"
|   ;; Stefan Monnier suggested to use `info' instead of `Info-goto-node', but
|   ;; this doesn't work for XEmacs.  OTOH, Reiner says he submitted a patch for
|   ;; XEmacs, so "info" should be okay.
|   "Command string to insert with `jk/insert-current-info-node'")
| 
| (defun jk/current-info-node (&optional arg)
|   "Insert reference to current Info node in buffer.
| 
| If ARG is...
| - nil:	Insert `\(info \"\(file\)node\"\)'.
| - 4 (\\[universal-argument]):	Add a note about `C-x C-e', too.
| - 16 (2 \\[universal-argument]'s):	Insert `<info://file/node>'
| - the symbol `string':	Only return the string, don't insert.
| 
| In emacs-lisp-mode a custom link is inserted."
|   (interactive "p")
|   (let ((what
| 	 (cond
| 	  ((eq major-mode 'emacs-lisp-mode)
| 	   'lisp)
| 	  ((numberp arg)
| 	   (cond
| 	    ((= arg 4) 'gnus-url)
| 	    ((= arg (* 4 4)) 'info-press)
| 	    (t 'info)))
| 	  ((eq arg 'string)
| 	   'string)
| 	  (t 'info)))
| 	(buffer (buffer-name))
| 	(ret ""))
|     ;; The next lines are borrowed from Karl Pflaesterer's code in
|     ;; <m3eli7tgp0.fsf=I0+XGIwFrHi1NNnFew4Tsd10ftHNP/Qe@public.gmane.org>.
|     (set-buffer "*info*")
|     (let* ((node Info-current-node)
| 	   (nodeurl (jk/replace-in-string node " " "+"))
| 	   (file Info-current-file)
| 	   (fileurl (file-name-nondirectory file))
| 	   (fileurl (jk/replace-in-string fileurl "\\.gz$" ""))
| 	   (fileurl (jk/replace-in-string fileurl "\\.info$" "")))
|       (set-buffer buffer)
|       (setq ret
| 	    (cond
| 	     ((eq what 'lisp)
| 	      (beginning-of-line)
| 	      (insert ":link '(custom-manual \"(" fileurl ")" node "\")")
| 	      (lisp-indent-line)
| 	      (newline))
| 	     ((eq what 'gnus-url)
| 	      (concat "<info://" fileurl "/" nodeurl ">"))
| 	     (t ;; (or (eq what 'info) (eq what 'info-press))
| 	      (concat "(" jk/info-goto-node-string
| 		      " \"(" fileurl ")" node "\")"
| 		      (if (eq what 'info-press)
| 			  "; <== Press C-x C-e here!"
| 			"")))))
|       (if (or (eq what 'string) (eq what 'lisp))
| 	  ret
| 	(insert ret)))))
| 
| (defun jk/boxquote-info ()
|   "Boxquote current yank-buffer and put current info node in title"
|   (interactive)
|   (boxquote-yank)
|   (boxquote-title (jk/current-info-node 'string)))
`----




Greetings,
Jochen
-- 
Einigkeit und Recht und Freiheit                http://www.Jochen-Kuepper.de
    Liberté, Égalité, Fraternité                GnuPG key: CC1B0B4D
        Sex, drugs and rock-n-roll