Re: elisp
On 3 Apr 2003, Denis Dzyubenko wrote:
Сделал себе новый шаблон приветствия при ответе, подскажите
начинающему elisp'еру, нет ли тут ошибок?
If it works, it's right. =)) Но комментарии есть.
(pushnew '(sc-header-hello-attributed-writes)
sc-rewrite-header-list)
Я бы использовал `add-to-list'.
(defun sc-header-hello-attributed-writes ()
Было очень много комментариев. Я сам в них запутался. Мне легче их
записать в такой форме (untested):
(let ((sc-mumble "??")
(to (car (mail-extract-address-components (sc-mail-field "to")))))
(if (sc-whofrom)
(insert
"On " (sc-mail-field "date") ",\n\t" (sc-mail-field
"sc-author")
" (" (sc-mail-field "sc-attribution") ") wrote"
(if to
(if (string= user-full-name to)
" to me"
(concat " to " to))
"")
":\n")))
Так как час поздний, где-то у меня может быть ошибочка. Мне просто-таки
лень это тестировать, поэтому ее исправление оставим как упражнение
читателю. =))
И еще вопрос как проверить что значения 2х переменных равны, в
данном
случае я пробовал использовать функцию eq и equal, но почему-то она
сообщается об ошибке Wrong type argument: char-or-string-p, nil
=, eq, eql, string= -- выбирай.
--
I accept RFC3156 and RFC2440-compatible encrypted mail.
PGP key fingerprint: 123A 7CCE 6E26 6233 0D87 E01A A0F8 3524 FCD8 1841
Attachments:
- attachment.sig (application/pgp-signature — 188 bytes)