[CODE] Adding a message to a nndiary group.

[CODE] Adding a message to a nndiary group.

[Matthieu Moy]

Hi ! 

Here's a function to resend a message to a nndiary group. 

Typical  example  :  I  recieve  a  message from  xxx,  giving  me  an
appointment at 12 o'clock on May 24. 

While reading  the message,  I call this  function, which opens  a new
buffer with  this message, and all  the nndiary headers  ready. I give
the date  and time in  the headers, C-c  C-c, and the message  will go
into my diary.

This was in my opinion a cruelly missing feature in nndiary, except if
I missed something?

I've bound it to S D d, but  I'm not sure it's a good idea to use this
shortcut, for people who don't use nndiary. 

(define-key gnus-send-bounce-map
  "d" 'moy-gnus-summary-resend-message-to-diary
  )

-- 
Matthieu



(defvar nndiary-default-group-name "diary"
  "Name of the nndiary group to post to by default")

(defun moy-gnus-summary-resend-message-to-diary ()
  "Send current message to the group `nndiary-default-group-name'.
Typical example : I recieve a message from a friend, giving me an
appointment at 12 o'clock on May 24.

While reading the message, I call this function, which opens a new
buffer with this message, and all the nndiary headers ready. I give
the date and time in the headers, C-c C-c, and the message will go
into my diary, and come back to remind me on time."
  (interactive)
  (gnus-summary-resend-message-edit)
  (message-narrow-to-headers)
  (message-remove-header "^To:\\|^Cc:\\|^Bcc:" t)
  (insert (concat "Newsgroups: " nndiary-default-group-name "\n"))
  (insert "X-Diary-Minute: *
X-Diary-Hour: *
X-Diary-Dom: *
X-Diary-Month: *
X-Diary-Year: *
X-Diary-Dow: *
X-Diary-Time-Zone: *
")
  (re-search-backward "^X-Diary-Minute: ")
  (end-of-line)
  (widen)
  (setq gnus-newsgroup-name (concat "nndiary:" nndiary-default-group-name))
  (gnus-setup-message 'message)
  )

Re: [CODE] Adding a message to a nndiary group.

[Didier Verna]

Matthieu Moy <Matthieu.Moy@imag.fr> wrote:

> Here's a function to resend a message to a nndiary group. 
>
> Typical  example  :  I  recieve  a  message from  xxx,  giving  me  an
> appointment at 12 o'clock on May 24. 
>
> While reading  the message,  I call this  function, which opens  a new
> buffer with  this message, and all  the nndiary headers  ready. I give
> the date  and time in  the headers, C-c  C-c, and the message  will go
> into my diary.
>
> This was in my opinion a cruelly missing feature in nndiary, except if
> I missed something?

        If you type `B c' to copy (or `B m' to move) the message to an nndiary
group, you'll be prompted for the diary headers. Isn't that what you want to
do ?

        BTW, I hope to write the complete doc for nndiary soon. Please be
patient, my agenda's been totally overflowed for months.

-- 
Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 53 14 59 47
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22   didier@xemacs.org

Re: [CODE] Adding a message to a nndiary group.

[Matthieu Moy]

Didier Verna <didier@lrde.epita.fr> writes:

>
>         If you type `B c' to copy (or `B m' to move) the message to an nndiary
> group, you'll be prompted for the diary headers. Isn't that what you want to
> do ?

Yes, but  if I do it,  I have only  a message "header missing"  in the
minibuffer. Did you apply the latest version to CVS Gnus ?

(Ognus 0.07, Emacs 21.1)

In case it helps, here's the debug trace :

Debugger entered--Lisp error: (error "header missing")
  signal(error ("header missing"))
  error("header missing")
  apply(error "header missing")
  nndiary-error("header missing")
  (if (not (re-search-forward header nil t)) (nndiary-error "header missing") (nndiary-parse-schedule-value (match-string 1) min-or-values max))
  (let ((header ...)) (goto-char (point-min)) (if (not ...) (nndiary-error "header missing") (nndiary-parse-schedule-value ... min-or-values max)))
  nndiary-parse-schedule("Minute" 0 59)
  (lambda (elt) (setq head (nth 0 elt)) (nndiary-parse-schedule (nth 0 elt) (nth 1 elt) (nth 2 elt)))(("Minute" 0 59))
  mapcar((lambda (elt) (setq head (nth 0 elt)) (nndiary-parse-schedule (nth 0 elt) (nth 1 elt) (nth 2 elt))) (("Minute" 0 59) ("Hour" 0 23) ("Dom" 1 31) ("Month" 1 12) ("Year" 1971) ("Dow" 0 6) ("Time-Zone" (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))))
  (condition-case arg (mapcar (lambda ... ... ...) nndiary-headers) (t (nnheader-report ... "X-Diary-%s header parse error: %s." head ...) nil))
  (let (head) (condition-case arg (mapcar ... nndiary-headers) (t ... nil)))
  nndiary-schedule()
  (if (nndiary-schedule) (progn (let ... ... ... result)))
  (when (nndiary-schedule) (let (result) (when nnmail-cache-accepted-message-ids ...) (if ... ... ...) result))
  nndiary-request-accept-article("diary" "" t)
  gnus-request-accept-article("nndiary:diary" nil t t)
  gnus-summary-move-article(nil nil nil copy)
  gnus-summary-copy-article(nil)
  call-interactively(gnus-summary-copy-article)
  gnus-article-read-summary-keys(nil)
  call-interactively(gnus-article-read-summary-keys)
  recursive-edit()
  byte-code("Æ\b!ˆÇ ˆÈ	!ˆ\nƒ?\0Éed\"\vVƒ4\0ebˆÊ\v¥yˆ`\x1cdbˆÊ\v¥\vZyˆ\f`|ˆ)ËcˆebˆÌÍ !ˆÎ ˆ	@Ï=ƒK\0ÐÑÒ\"ˆÓ ˆÌÔ!ˆÒÕÒ\x1d\x1e\x17\x1e\x18ÌÔ!ˆŠÖ ˆ,Õ‡" [debugger-buffer debugger-args noninteractive debugger-batch-max-lines middlestart buffer-read-only pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit standard-output inhibit-trace] 3)
  debug(error (error "header missing"))
  signal(error ("header missing"))
  error("header missing")
  apply(error "header missing")
  nndiary-error("header missing")
  nndiary-parse-schedule("Minute" 0 59)
  #[(elt) "\b@\x11Â\b@\bA@Ã\b8#‡" [elt head nndiary-parse-schedule 2] 5](("Minute" 0 59))
  mapcar(#[(elt) "\b@\x11Â\b@\bA@Ã\b8#‡" [elt head nndiary-parse-schedule 2] 5] (("Minute" 0 59) ("Hour" 0 23) ("Dom" 1 31) ("Month" 1 12) ("Year" 1971) ("Dow" 0 6) ("Time-Zone" (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))))
  nndiary-request-accept-article("diary" "" t)
  gnus-request-accept-article("nndiary:diary" nil t t)
  gnus-summary-move-article(nil nil nil copy)
  gnus-summary-copy-article(nil)
  call-interactively(gnus-summary-copy-article)


-- 
Matthieu

Re: [CODE] Adding a message to a nndiary group.

[Didier Verna]

Matthieu Moy <Matthieu.Moy@imag.fr> wrote:

> Didier Verna <didier@lrde.epita.fr> writes:
>
>>
>>         If you type `B c' to copy (or `B m' to move) the message to an
>> nndiary group, you'll be prompted for the diary headers. Isn't that what
>> you want to do ?
>
> Yes, but  if I do it,  I have only  a message "header missing"  in the
> minibuffer. Did you apply the latest version to CVS Gnus ?

        Prompting is not done by nndiary itself (that's not hte job of a
backend). This is a feature added to an nndiary hook by gnus-diary. Do you use
gnus-diary ?

-- 
Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 53 14 59 47
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22   didier@xemacs.org

Re: [CODE] Adding a message to a nndiary group.

[Matthieu Moy]

Didier Verna <didier@lrde.epita.fr> writes:

>         Prompting is not done by nndiary itself (that's not the job of a
> backend). This is a feature added to an nndiary hook by gnus-diary. Do you use
> gnus-diary ?

No. 

-- 
Matthieu

Re: [CODE] Adding a message to a nndiary group.

[Didier Verna]

Matthieu Moy <Matthieu.Moy@imag.fr> wrote:

> Didier Verna <didier@lrde.epita.fr> writes:
>
>>         Prompting is not done by nndiary itself (that's not the job of a
>> backend). This is a feature added to an nndiary hook by gnus-diary. Do you
>> use gnus-diary ?
>
> No. 

        Well, you should :-)

More precisely, gnus-diary makes your life easier by providing a set of
features that you will most probably want for daily use (special summary line
format, special sorting functions etc). The one you mention belongs exactly to
this category.

I've made it a separate file because none of its contents belong conceptually
to the backend. You can do without, if you rilly want to, but I don't see why
you would. For instance, you can always edit the article by hand, add the
required headers, and then `B m' it. nndiary will be happy with that.

I really have to write the doc now ...

-- 
Didier Verna, didier@lrde.epita.fr, http://www.lrde.epita.fr/~didier

EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 53 14 59 47
94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22   didier@xemacs.org

Re: [CODE] Adding a message to a nndiary group.

[Matthieu Moy]

Didier Verna <didier@lrde.epita.fr> writes:

> I really have to write the doc now ...

At  least, add  a comment  in  nndiary.el telling  to have  a look  at
gnus-diary.el. I didn't even know this existed. 

Thanks/Merci,

-- 
Matthieu

Re: [CODE] Adding a message to a nndiary group.

[Andreas Fuchs]

[-- Attachment #1: Type: text/plain, Size: 652 bytes --]

Today, Didier Verna <didier@lrde.epita.fr> wrote:
> I've made it a separate file because none of its contents belong
> conceptually to the backend. You can do without, if you rilly want to,
> but I don't see why you would. For instance, you can always edit the
> article by hand, add the required headers, and then `B m' it. nndiary
> will be happy with that.
> 
> I really have to write the doc now ...

I just submitted a kind-of howto on my.gnus.org which kind-of describes
the setup process. Currently, it is in status "pending", but I could
send it to you if you wish (-:

-- 
Andreas Fuchs, <asf@acm.org>, asf@jabber.at, antifuchs

[-- Attachment #2: Type: application/pgp-signature, Size: 188 bytes --]

spam.el and bogofilter.

[Jody Klymak]

Hi all,

I guess I am not quite getting how to use spam.el (latest cvs).
Looked at the discussion on http://lifelogs.com/spam/spam.html but I
am still getting the backtrace below when I try to exit my main Inbox.

Any idea where to start looking for the problem?

Thanks,  Jody

Backtrace:

Debugger entered--Lisp error: (void-function gnus-parameter-spam-marks)
  gnus-parameter-spam-marks("nnimap+imap.oce.orst.edu:INBOX")
  spam-group-ham-marks("nnimap+imap.oce.orst.edu:INBOX" t)
  spam-group-ham-mark-p("nnimap+imap.oce.orst.edu:INBOX" 33 t)
  spam-group-spam-mark-p("nnimap+imap.oce.orst.edu:INBOX" 33)
  spam-generic-register-routine(#[(article) "ÁÂ\b!Ã\"‡" [article spam-bogofilter-register-with-bogofilter spam-get-article-as-string t] 3] nil)
  spam-bogofilter-register-spam-routine()
  spam-summary-prepare-exit()
  run-hooks(gnus-summary-prepare-exit-hook)
  apply(run-hooks gnus-summary-prepare-exit-hook)
  gnus-run-hooks(gnus-summary-prepare-exit-hook)
  gnus-summary-exit()
* call-interactively(gnus-summary-exit)
Debugger entered--Lisp error: (void-function gnus-parameter-spam-marks)
  gnus-parameter-spam-marks("nnimap+imap.oce.orst.edu:INBOX")
  spam-group-ham-marks("nnimap+imap.oce.orst.edu:INBOX" t)
  spam-group-ham-mark-p("nnimap+imap.oce.orst.edu:INBOX" 33 t)
  spam-group-spam-mark-p("nnimap+imap.oce.orst.edu:INBOX" 33)
  spam-generic-register-routine(#[(article) "ÁÂ\b!Ã\"‡" [article spam-bogofilter-register-with-bogofilter spam-get-article-as-string t] 3] nil)
  spam-bogofilter-register-spam-routine()
  spam-summary-prepare-exit()
  run-hooks(gnus-summary-prepare-exit-hook)
  apply(run-hooks gnus-summary-prepare-exit-hook)
  gnus-run-hooks(gnus-summary-prepare-exit-hook)
  gnus-summary-exit()
* call-interactively(gnus-summary-exit)

Messages that I guess are relevant:

Exiting summary buffer and applying spam rules
Registering spam with bogofilter
spam-group-ham-marks: 
Loading debug...done
Entering debugger...
 [2 times]
Exiting summary buffer and applying spam rules
Registering spam with bogofilter
spam-group-ham-marks: Symbol's function definition is void: gnus-parameter-spam-marks



-- 
Jody Klymak                           104 Ocean Admin Bldg., OSU
mailto:jklymak@coas.oregonstate.edu   Corvalli OR, 97330

Re: spam.el and bogofilter.

[Ted Zlatanov]

On Sun, 23 Mar 2003, jklymak@coas.oregonstate.edu wrote:
> I guess I am not quite getting how to use spam.el (latest cvs).
> Looked at the discussion on http://lifelogs.com/spam/spam.html but I
> am still getting the backtrace below when I try to exit my main
> Inbox.
> 
> Any idea where to start looking for the problem?
> 
> Thanks,  Jody
> 
> Backtrace:
> 
> Debugger entered--Lisp error: (void-function
>   gnus-parameter-spam-marks)

> Exiting summary buffer and applying spam rules Registering spam with
> bogofilter spam-group-ham-marks: Loading debug...done Entering
> debugger...  [2 times] Exiting summary buffer and applying spam
> rules Registering spam with bogofilter spam-group-ham-marks:
> Symbol's function definition is void: gnus-parameter-spam-marks

Looks like something in gnus.el is not loading properly.
gnus-parameter-spam-marks is defined there.  Make sure you are using
the latest gnus.el and spam.el, and remove the .elc files too.

If it still fails, go to gnus.el and manually hit C-x e after each of
the ham-marks and spam-marks definitions.  There's a variable
gnus-install-group-spam-parameters that also may be enabled by
accident, that's for those XEmacs users who used to have problems with
the parameters definition.  I doubt gnus-install-group-spam-parameters
is the problem, but do make sure it's nil.

Thanks
Ted

Re: spam.el and bogofilter.

[Jody Klymak]

Hello Ted,

Ted Zlatanov <tzz@lifelogs.com> writes:

> If it still fails, go to gnus.el and manually hit C-x e after each of
> the ham-marks and spam-marks definitions.  There's a variable
> gnus-install-group-spam-parameters that also may be enabled by
> accident, that's for those XEmacs users who used to have problems with
> the parameters definition.  I doubt gnus-install-group-spam-parameters
> is the problem, but do make sure it's nil.

Well, gnus-install-group-spam-parameters was set to t.  I'm not sure
why.  I customized it and I can now get in and out of my groups OK.

Thanks,  Jody

-- 
Jody Klymak                           104 Ocean Admin Bldg., OSU
mailto:jklymak@coas.oregonstate.edu   Corvalli OR, 97330

Re: spam.el and bogofilter.

[Ted Zlatanov]

On Sun, 23 Mar 2003, jklymak@coas.oregonstate.edu wrote:
> Ted Zlatanov <tzz@lifelogs.com> writes:
> 
>> If it still fails, go to gnus.el and manually hit C-x e after each
>> of the ham-marks and spam-marks definitions.  There's a variable
>> gnus-install-group-spam-parameters that also may be enabled by
>> accident, that's for those XEmacs users who used to have problems
>> with the parameters definition.  I doubt
>> gnus-install-group-spam-parameters is the problem, but do make sure
>> it's nil.
> 
> Well, gnus-install-group-spam-parameters was set to t.  I'm not sure
> why.  I customized it and I can now get in and out of my groups OK.

Well, that will teach me to look at bug reports in a hurry.  The
variable gnus-install-group-spam-parameters is supposed to be t by
default.  When nil, it *disables* the loading of the spam-marks and
ham-marks parameter definitions, among other things.  So it was
supposed to be t, and I should have said "disabled by default" and
"make sure it's t" above.  Sorry for the confusion.

Now that it's nil, does anything related to spam.el work correctly?
It shouldn't, since you have now disabled the definition of parameters
that spam.el uses when it exits the summary buffer.

Ted

Re: spam.el and bogofilter.

[Jody Klymak]

Hello Ted,

Ted Zlatanov <tzz@lifelogs.com> writes:

> Well, that will teach me to look at bug reports in a hurry.  The
> variable gnus-install-group-spam-parameters is supposed to be t by
> default.  When nil, it *disables* the loading of the spam-marks and
> ham-marks parameter definitions, among other things.  So it was
> supposed to be t, and I should have said "disabled by default" and
> "make sure it's t" above.  Sorry for the confusion.
>
> Now that it's nil, does anything related to spam.el work correctly?
> It shouldn't, since you have now disabled the definition of parameters
> that spam.el uses when it exits the summary buffer.

Funny you should ask.   I'm not sure what "correct" behavior should
be.   

I have been able to train bogofilter from within gnus.  I set a group
to be a ham group, and tell it to process ham and spam (S x) with
bogofilter on exit, and it apparently does so because I am able to
change the bogosity of articles (checked via M s t).

However, I am a little confused as to what spam-split actually does.
Does it simply try and mark the article as spam or does it try and put
it somewhere?  If it tries to put it somewhere, where would that be?

I'm using nnimap, and have the following in my .gnus:

(require 'spam);; but really I dont' require spam!
(setq
  nnimap-split-rule 'nnimap-split-fancy
  nnimap-split-inbox "INBOX"
 nnimap-split-fancy '(|
		      (: spam-split)
		      ;; default mailbox
		      "mail/Inbox.spam"))

All my INBOX gets put in mail/Inbox.spam.  

I have spam-split-group set to "spam"  Should it be set to something
else if I am using imap?

I have to admit an embarrassing lack of spam since last night when I
got this working, but I do want to find out where my spam group will
be.

Thanks,  Jody


-- 
Jody Klymak                           104 Ocean Admin Bldg., OSU
mailto:jklymak@coas.oregonstate.edu   Corvalli OR, 97330

Re: spam.el and bogofilter.

[Ted Zlatanov]

On Mon, 24 Mar 2003, jklymak@coas.oregonstate.edu wrote:
> I have been able to train bogofilter from within gnus.  I set a
> group to be a ham group, and tell it to process ham and spam (S x)
> with bogofilter on exit, and it apparently does so because I am able
> to change the bogosity of articles (checked via M s t).

Great.  Puzzling but great that you have it working.  Normally you
need to set the spam/ham exit processor in order to train bogofilter
or other tools.

> However, I am a little confused as to what spam-split actually does.
> Does it simply try and mark the article as spam or does it try and
> put it somewhere?  If it tries to put it somewhere, where would that
> be?

spam-split only moves the article to spam-split-group if it's spam,
marks are not set by it.

> I'm using nnimap, and have the following in my .gnus:
> 
> (require 'spam);; but really I dont' require spam!
> (setq
>   nnimap-split-rule 'nnimap-split-fancy
>   nnimap-split-inbox "INBOX"
>  nnimap-split-fancy '(|
> 		      (: spam-split)
> 		      ;; default mailbox
> 		      "mail/Inbox.spam"))
> 
> All my INBOX gets put in mail/Inbox.spam.  
> 
> I have spam-split-group set to "spam"  Should it be set to something
> else if I am using imap?

No, nnimap-split-fancy knows to interpret it in the IMAP context, and
nnmail-split-fancy will do the corresponding translation to nnml and
such.

You have to set spam-use-xyz if you want to use tool XYZ in
spam-split.  For instance, spam-use-bogofilter will detect spam in
spam-split with Bogofilter.  Have you looked at the intro to spam.el
in the manual?  If it was confusing or unclear, let me know what
parts, and how I should rephrase it if you have input.

> I have to admit an embarrassing lack of spam since last night when I
> got this working, but I do want to find out where my spam group will
> be.

Yeah, I keep a good 50 messages around for testing - the spam that
would not die, heh.

Thanks
Ted

Re: spam.el and bogofilter.

[Jody Klymak]

Hi Ted,

> You have to set spam-use-xyz if you want to use tool XYZ in
> spam-split.  For instance, spam-use-bogofilter will detect spam in
> spam-split with Bogofilter.  Have you looked at the intro to spam.el
> in the manual?  If it was confusing or unclear, let me know what
> parts, and how I should rephrase it if you have input.

OK, now I'm blushing.  Somehow make.bat on my ognus-cvs was not
copying the info files.  So when I read them I found nothing by Lars'
very old spam discussion.  I'd just assumed that you hadn't written
anything into the info yet.

The info node seems to answer most of my questions.  Great.
Documentation is great!

Sorry to be a bother,  

Cheers,  Jody

-- 
Jody Klymak                           104 Ocean Admin Bldg., OSU
mailto:jklymak@coas.oregonstate.edu   Corvalli OR, 97330

Make.bat and info files (was: spam.el and bogofilter.)

[Frank Schmitt]

Jody Klymak <jklymak@coas.oregonstate.edu> writes:

> OK, now I'm blushing.  Somehow make.bat on my ognus-cvs was not
> copying the info files.  So when I read them I found nothing by Lars'
> very old spam discussion.  I'd just assumed that you hadn't written
> anything into the info yet.

Oh, this interests me as I wrote the new make.bat. Did this happen with
the old make.bat (which wanted the main Emacs directory as parameter)
or with the new one (which wants the bin directory)?

-- 
One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them
In the Land of Mordor where the Shadows lie.

Re: Make.bat and info files (was: spam.el and bogofilter.)

[Jody Klymak]

Frank Schmitt <usereplyto@Frank-Schmitt.net> writes:

> Jody Klymak <jklymak@coas.oregonstate.edu> writes:
>
>> OK, now I'm blushing.  Somehow make.bat on my ognus-cvs was not
>> copying the info files.  So when I read them I found nothing by Lars'
>
> Oh, this interests me as I wrote the new make.bat. Did this happen with
> the old make.bat (which wanted the main Emacs directory as parameter)
> or with the new one (which wants the bin directory)?

Oh oh, now I'm blushing again.  The last few times I ran "make" which
actually called "make.exe".

I checked make.bat - the old one - and it seems to have worked fine.

Sheesh, see what happens when you use Outlook for a few months...

Cheers,  Jody

Re: Make.bat and info files

[Frank Schmitt]

Jody Klymak <jklymak@coas.oregonstate.edu> writes:

> Oh oh, now I'm blushing again.  The last few times I ran "make" which
> actually called "make.exe".
>
> I checked make.bat - the old one - and it seems to have worked fine.
>
> Sheesh, see what happens when you use Outlook for a few months...

Satanas :-)

However, if you find time to try the new make.bat, tell me if it works
and if there's something which could be improved.

MFG Frank

-- 
"You know the world is going crazy when the best rapper is a white guy,
the best golfer is a black guy, France is accusing the US of arrogance,
and Germany doesn't want to go to war." -- Unknown author