2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Navi2ch for Emacs (part 7)

673 :名無しさん@お腹いっぱい。:02/11/02 16:11
送信控えを見るときに、スレ立てを判断したいので
init に書いてみますた。

(defun navi2ch-message-add-sendlog (from mail message subject board article)
(let* ((navi2ch-localfile-default-file-modes ?\700)
(url (navi2ch-article-to-url board article))
(sbj (or subject (cdr (assq 'subject article))))
(lsubject (navi2ch-message-sendlog-subject board article))
(lboard navi2ch-message-sendlog-board)
(larticle (navi2ch-message-sendlog-article lboard lsubject)))
(when (and lsubject lboard)
(if navi2ch-message-new-message-p
(setq message (format "New Thread\n\nSubject: %s\nURL: %s\n\n%s" sbj url message))
(setq message (format "Subject: %s\nURL: %s\n\n%s" sbj url message)))
(when larticle (setq lsubject nil))
(navi2ch-multibbs-send-message from mail message
lsubject lboard larticle))))


341 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)