diff options
| author | fukachan <fukachan> | 2004-07-18 16:13:44 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-07-18 16:13:44 +0000 |
| commit | ddc1ed19d3f9d8d8840bea932174a68749550330 (patch) | |
| tree | 49a45abac9e6523c1e8c58593c87cb1d6276373c /img/lib/IM/Message.pm | |
| parent | e0599b089f1827abfc80f8ab9de549223337f4d9 (diff) | |
| download | fml8-im-147.tar.gz fml8-im-147.tar.bz2 fml8-im-147.zip | |
im-147im-147
Diffstat (limited to 'img/lib/IM/Message.pm')
| -rw-r--r-- | img/lib/IM/Message.pm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/img/lib/IM/Message.pm b/img/lib/IM/Message.pm index cbfbf544..38eb2d10 100644 --- a/img/lib/IM/Message.pm +++ b/img/lib/IM/Message.pm @@ -5,7 +5,7 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Oct 28, 2003 +### Revised: Jul 4, 2004 ### my $PM_VERSION = "IM::Message.pm version 20031028(IM146)"; @@ -735,14 +735,8 @@ sub gen_message_id($) { if ($main::Message_id_PID) { $mid_rnd = "-".$$.$mid_rnd; } - my $mid_user; - if ($main::Message_id_UID) { - $mid_user = $<; - } else { - $mid_user = $main::Login; - } my($mid) - = "<$mid_time$mid_rnd.$mid_user\@$main::Message_id_domain_name>"; + = "<$mid_time$mid_rnd.$main::Message_id_user_name\@$main::Message_id_domain_name>"; $Mid_hist{$part} = $mid if ($part > 0); return $mid; } |