Navi2ch for Emacs (part 7)
送信控えを見るときに、スレ立てを判断したいので
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))))
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))))
|
|
|