RE: [emacs-wiki-discuss] Saving day pages and planner-appt error

[David Lord]

Jim,

Thanks, that fixes it.

Regards
--
David Lord

> -----Original Message-----
> From:
> address@hidden
> 
> [mailto:address@hidden
> ngnu.org] On Behalf Of Jim Ottaway
> Sent: 07 June 2005 10:34
> To: address@hidden
> Subject: Re: [emacs-wiki-discuss] Saving day pages and
> planner-appt error
>
>
> >>>>> David Lord <address@hidden> writes:
>
> > Jim,
> > Thanks for the reply.  The description does have this in it: -
>
> > This subr is advised.
>
> > Around-advice `senator'.
>
> > Regards
> > --
> > David Lord
>
> Thanks.  I don't know anything about senator; it is possible that
> whatever it does to re-search-forward is interfering with the appt
> updating function.
>
> Nevertheless, I note that the original function doesn't check for an
> empty schedule. Does it work if you replace the original
> planner-appt-add-appts-from-schedule with the version below?
>
> (defun planner-appt-add-appts-from-schedule ()
>   "Add appointment reminders from the schedule if this is
> today's plan."
>   (interactive)
>   (when (planner-appt-todays-page-p)
>     ;; Delete old appts created by this function.
>     (planner-appt-clear-appts --planner-appt-schedule-added-appts)
>     (setq --planner-appt-schedule-added-appts '())
>     (save-excursion
>       (planner-seek-to-first planner-appt-schedule-section)
>       (let ((bound (save-excursion
>                    (planner-appt-seek-to-end-of-current-section)))
>           line time text)
>       ;; There are no entries in the schedule unless bound is
>       ;; greater than point.
>       (when (> bound (point))
>         (while (re-search-forward
>                 planner-appt-schedule-appt-regexp bound t)
>           (setq line (match-string-no-properties 0)
>                 time (match-string-no-properties 1)
>                 text (planner-appt-format-description
>                       (match-string-no-properties 3)))
>           (unless (or (planner-appt-earlier-than-now-p time)
>                       ;; Ignore if this is an appt copied from the
>                       ;; task section.
>                       (member line
>                               --planner-appt-lines-added-to-section))
>             (appt-add time text)
>             ;; Remember tasks added here.
>             (setq --planner-appt-schedule-added-appts
>                   (planner-appt-remember-appt
>                    time text
> --planner-appt-schedule-added-appts)))))))))
>
>
> Regards,
>
> --
> Jim Ottaway

This email and its attachments are confidential under applicable law and are intended for use of the sender's addressee only, unless the sender expressly agrees otherwise, or unless a separate written agreement exists between Iron Mountain and a recipient company governing communications between the parties and any data that may be so transmitted. Transmission of email over the Internet is not a secure communications medium. If you are requesting or have requested the transmittal of personal data, as defined in applicable privacy laws, by means of email or in an attachment to email, you may wish to select a more secure alternate means of transmittal that better supports your obligations to protect such personal data.

If the recipient of this message is not the recipient named above, and/or you have received this email in error, you must take no action based on the information in this email. You are hereby notified that any dissemination, misuse or copying or disclosure of this communication by a recipient who has received this message in error is strictly prohibited. If this message is received in error, please return this email to the sender and immediately highlight any error in transmittal. Thank you.