lkml.org 
[lkml]   [2002]   [Sep]   [2]   [last100]   RSS Feed
Views: [wrap][no wrap]   [headers]  [forward] 
 
Messages in this thread
/
Date
SubjectRe: [TRIVIAL PATCH] Remove list_t infection.
From
   From: Daniel Phillips <phillips@arcor.de>
Date: Mon, 2 Sep 2002 12:16:45 +0200

Admit it, you never wrote a line of lisp ;-)

Oh contraire:

;; The most important function in this file. Use it wisely.
(defun grrr (object)
"Growl at OBJECT"
(interactive "sWhat are you mad at: ")
(if (equal object "")
(message "You growl at %s" (buffer-name))
(message "You growl at %s" object)))

(defun xyzzy () (interactive) (message "nothing happens"))

;; Defun needed for rmail growling hack below.
;;
(defun growl-at-from ()
"Search for from header in mail and growl at that person"
(save-excursion
(save-excursion
(goto-char 0)
(let ((case-fold-search t))
(setq from-location (search-forward "From:" nil))
(setq from-location (+ from-location 1))
(end-of-line)
(setq end-of-from-string (point))
(grrr (buffer-substring from-location end-of-from-string))))))

(add-hook 'rmail-show-message-hook 'growl-at-from)

;; Magic defun to grrr at people who send you mail.
(defun rmail-maybe-set-message-counters ()
"Same as normal defun in rmail.el except here
we growl at whoever the mail is from. Pretty crufty eh?"
(if (not (and rmail-deleted-vector
rmail-message-vector
rmail-current-message
rmail-total-messages))
(rmail-set-message-counters))
(growl-at-from))
-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@vger.kernel.org
More majordomo info at http://vger.kernel.org/majordomo-info.html
Please read the FAQ at http://www.tux.org/lkml/

\
 
 \ /
  Last update: 2005-03-22 13:28    [W:0.432 / U:0.200 seconds]
©2003-2020 Jasper Spaans|hosted at Digital Ocean and TransIP|Read the blog|Advertise on this site