Another verb move for the 25Dec95 core

• Date: Tue, 2 Jan 1996 19:07:53 PST
• From:
  Judy Anderson <yduj@cs.stanford.edu>
• cc: MOO-cows.parc@xerox.com
• In-Reply-to: "Stacey Greenstein's message of Tue, 2 Jan 1996 13:20:42 PST <Pine.SOL.3.91.960102161857.25804B-100000@starfish>"
• Posted-Date: Tue, 2 Jan 1996 19:07:53 -0800 (PST)

Stacey Greenstein suggests @copy-move #6:confunc to #91:confunc

A better solution is to split off the functionality that is only mail
related, thusly:

@program $player:confunc
if (valid(cp = caller_perms()) && caller != this && !$perm_utils:controls(cp, this) && caller != #0)
  return E_PERM;
endif
this:("@last-connection")();
$news:check();
.

@program $mail_recipient_class:confunc
if (valid(cp = caller_perms()) && caller != this && !$perm_utils:controls(cp, this) && caller != #0)
  return E_PERM;
endif
nm = this:length_all_msgs() - this:length_date_le(this:get_current_message()[2]);
if (nm)
  this:notify(tostr("You have new mail (", nm, " message", nm == 1 ? "" | "s", ").", this:mail_option("expert") ? "" | "  Type 'help mail' for info on reading it."));
endif
this:mail_catch_up();
this:check_mail_lists();
pass(@args);
.


This change has been made on LambdaMOO.

      Judy Anderson yclept yduJ          'yduJ' rhymes with 'fudge'
 yduJ@cs.stanford.edu (personal mail)   yduJ@harlequin.com (work-related)
	Join the League for Programming Freedom, lpf@uunet.uu.net

• Re: Another verb move for the 25Dec95 core
• From: Stephen Sayer <ssayer@hijinx.com>

• Another verb move for the 25Dec95 core
• From: Stacey Greenstein <sg8734@acs.brockport.edu>

• Prev: Another verb move for the 25Dec95 core
• Next: Re: Another verb move for the 25Dec95 core
• Index: MOO-cows
• Thread: MOO-cows