Xemacs text menus?

Does XEmacs even have text menu support? I'm looking for something like tmm.

Tags: Uncategorized by Sacha Chua
No Comments »

message-sent-hook

Strange, the hook is locally set to (gnus-agent-possibly-do-gcc t), but message-to-planner gets called.

Tags: emacs by Sacha Chua
No Comments »

pda dev class

I need to look into dualbooting iPAQs so that Stanley and I can share the iPAQs. We'll need high-capacity CompactFlash cards.

Tags: Uncategorized by Sacha Chua
No Comments »

Message to planner

(defun message-to-planner ()
  "Logs this message to the News and Mail section of today's planner file."
  (save-window-excursion
    (let ((string (concat
             (format-time-string "%R")
             " | " (if (message-fetch-field "newsgroups")
                       (concat " News " (message-fetch-field "newsgroups"))
                     (concat " Mail " (message-fetch-field "to")))
             " | Subject: \"" (message-fetch-field "subject") "\""
             " | Message-ID: " (message-fetch-field "message-id")
             "\n")))22
      (planner-goto-today)
      (planner-seek-to-first "News and Mail")
      (insert string))))

(add-hook 'message-sent-hook 'message-to-planner)

Tags: emacs by Sacha Chua
No Comments »

Logging gnus messages

(defun message-to-diary ()
  (make-diary-entry (concat
		     (calendar-date-string (calendar-current-date) t)
		     (if (message-fetch-field "newsgroups")
			 (concat " Sent news To: " (message-fetch-field "newsgroups"))
		       (concat " Sent mail To: " (message-fetch-field "to")))
		     " Subject: \"" (message-fetch-field "subject") "\""
		     " Message-ID: " (message-fetch-field "message-id"))))
(add-hook 'message-sent-hook 'message-to-diary)

Tags: emacs by Sacha Chua
No Comments »

Next Page »